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SUPER SALE 

STOCK PURCHASED AT SPECIAL PRICES 
B only CoCo3's S40O u 

6 only Tandy Drives 1*60 » 

6 only RS232 Parks S160 eft 
(for um with OS-0 Uvtl 2) 

10 Mb Hud drives with controller 

for your CoC»2/3 S1299 

20 Mb Hud drives 11699 

512K upfrade* (or CoCo3 (won't work 

loose— premium 120 n/i 256K chips, gold 

edge contacts.) 

1199.00 Inc. Disk Public Domain 

Software- RAM Disk Text Editor, 

Disassembler. Winddw Utilities, 

Comi Software k morel 



RELATIONAL DATABASJ 
an.] BUSINESS SOITU All! 
T10U0 and ftofJn 'S 

specialists 
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COLOUR 
51 DISKETTES 



Available in Lavender, Dark Blue 

Light Blue, Grey, Deigc, Pink, Yellow 
White, Orange, Red, Burgundy, Black 
Brown and Green. 

TOP QUALITY CENTECH BRAND 
with LIFETIME WARRANTY 

SOLVE the problem of trying to 
locate your programs.... 

COLOUR CODING MAKES IT EASIER! 



SSDD $23.50 for 10 

DSDD $25.00 for 10 

(oostage free) 
Please state colours required 



JANDA (AUS) 
P.O. BOX 239 
MARYBOROUGH Q 4650 

10G NEPTUNE STREET (071) 23 1369 
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PENINSULA MUSIC & I 
ELECRONICS CENTRE [ 

I! 



SHOP 54, KAMNGAL HUB, 
FRANKSTON 3199 
I Ph (03) 789 7997. AH (059) 75-4790 

Best Trices on AMIGA Monitors 
and Data Sheet to suit CoCo 3 



Specials on Computer Training 
4 lessons for the price of 3 II 
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Best prices on Commodore Hardware 



Contact: Michael Monck 



FREE 



DELIVERY 
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WHO IS THIS MAGAZINE FOR? 

This magazine is for computer users - 
especially users of Viaicl, Tardy Colour 
Computer users, Tandy MC-10 
computers. Tandy 1000 and 2000's and 
IBM PC's and compatibles. 

WHO PROVIDES THE 
MATERIAL IN THIS MAGAZINE 

The readers of this magazine supply ihc 
information you will find here. All of il 
has been volunteered and remains the 
property of the individual authors. 
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We're Moving! 

BoyI Vhat a nonthl I can' t 

remember a month In 
which we've been Involved in so 

Mich! Its all to do with Ken 

Allen 
joining us of course - they 
always said he node work for 
people - I'n beginning to 
understand what they meant! 

The inportant news lt> that wb 

are aoving fron the old house 
we've been in since the year dot 
to a nice new office. 

The street address Is 26/207 

CuTrunburra Rd. , Ashmore. 4214. 

OUR POSTAL ADDRESS REXAIES 
UaCHANCBD. 

Unfortunately our phone 

numbers are changing, and we 
will not know what these are to 
be for a little while yet. 

Our current numbers will be 
vetted by Telecoa when we move, 
and we'll have the new numbers 
on Viatel Juet a: soon as we can 
get them there I So you should be 
able to find us without too many 
problems. 

Other changes Include new 
products again thts month for 
the Vishbook, new Modems and a 
whole range of software. 

I ' ve been to Sydney twice 
this month and once separately 
to Grafton! 



Ve've also been putting some 
hours into the new software that 
updates the Bulletin Boards on 
Viatel. 

This software has caused nore 
hassles than I'd like to name, a 
has been a real problem for us. 

Fortunately the project Is 
finally starting to bear fruit - 
after 6 months - and we've "been 
on line this past month with 
various working versions 

(working variously!). 

So all in all we've been very 
busy and it Looks like this 
month Is going to be very much 
more of the sane! 

Softgold a Sellout Again! 

Last month thie magazine cold 
out again, and we had to turn 
away customers. To them we 
apologise! 

The best way to ensure you 
get your copy is to subscribe. 
Falling that, reserve a copy at 
your local Tandy store, or book 
one at your local newsagent. 

Viatel 

The new program which updates 
the bulletin boards is starting 
to make its presence felt on the 
system. 

Occasionally it crashes 

etlll, but more often than not, 
it seems to work quite well. 

Eventually, It will provide 
auto updates on a 24 hour basis, 
with Com Jake on line at the 
usual times, 

The program updates 

automatically, and In fact quite 
quickly, all the boards on our 
system. By definition therefore 
it is quite complex - I'm glad 
most of the hard work is over! 

In other Viatel news, the 
boards have been very active and 
the bashes have been very many! 

At the time of going to press 
we had a Gross Messaging Contest 
going again - I'm sure Voodrow 
has a real chance of winning 
that one, even if he doesn't 
try! 

Speaking of Bashes, there is 
a Bash on 13th June on the Gold 
Coast. It looks like being quite 
a big one - at this stage we're 
expecting around 100 people. 

Bring your own drink and 
food, 6necks will be provided, 
but tf you want, we can fire up 
the BBQ for your food 

Phone 075 51 0577 for final 

dotoila. 

Conf '87 

Veil, its only a month or two 
to Conference everyone - so come 
on, let us know what you Intend 
doing! 



Ve have quite a few bookings 
already, but wo don't have 
sufficient to Justify hiring a 
bus iiuit Brisbane as discussed 
last month. 

Conference will be great I Ve 
have seme very exciting things 
to show you, including we hope, 
a mldi interface and a music 
synthesiser! 

There' 11 also be some of the 
things you've perhaps only heard 
of - OS-9 Level 2, the bard 
drives for the Colour Computer, 
new software lor the CoCo 3 - 
and CoCo 2, the CoCoConnectloa, 
T1000, T3000 soft and hardware - 
and most of all, tutorials 
galore to help you get the beet 
out of your computer! 

Special This Month 

Some of you have complained 
that the nags are getting 
expensive. 

Here's your chance to put 
your money where your nouth is! 

This month , if you ask for 
i*i you get 12 nonthB of 

Australian CoCo for Ju6t S32.00J 
That's just $2.67 per 
magazine - not bad eh? 

New Lines. 

The big excitment this month 
is the addition to our range of 
the Craftwork series of software 
for tho T1O00/IBK PC series of 
computers. 

For Just $99.00, you can 
purchase a total package for a 
retail, professional, actor 

trade or rental business. 

The packages are cased on the 
very neat Qaaus 3 database 
package which is written in 4GL 
and which Is aleo available 
tbrougb U6. 

The great thing about the 
Craft ware packages 16 that as 
your business grows, they can be 
economically changed to meet 
your own needs. 

This Is achieved either by 
purchasing Omnus 3 yourself and 
modifying the Craftware package 
utilising tha Oanuc 3 software, 
or you can return the Craftware 
software to us, and we will do 
your mods for you - at 
reasonable rates of course! 

The Tandy Store Award. 

The store at Ipswich has been 
noted before as being a friendly 
meeting place for Tandy computer 
users in the area. 

The staff there have gone out 
of their ways over the years to 
ensure that the people of 
Ipswich get top service. 

Congratulations to Ipswich 
Tandy, keep up the great work! 
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_. , , The Ooldsaft Wle&book 

Toe following products ars e/alLable 
on uidur (tan us. 

To order, contact ue by phone Viatel 
or letter, giving your name, address, 
phone number and credit card number. ae 
well ae the I tea # ahown beside the 
product a* listed below. 

All Items Lnclude post acid paofttng. 


ItSIB * 


Tandy and 1BH PC Hardware 

Description Coat 


2 2020 
7. 20? 1 


Championship Boning 
HI Haw 1 I 


•GO . 05 
•no Q". 


q ooi 


colcux Monitor 

(DTX 2001) 


•600.30 


Z 2022 
Z 2023 


Declmlun In the Desert 
F-15 Strike Eagle 
Kings 9u«ct 
Mean 18 
Boulderdavh 
Douldirdi^h I 1 
Conflict in Vietnam 


•SO. 95 
160.05 


4 002 
Q 003 
Q 004 


Mono Monitor 

House 

80266 Spaed Card 

Tand> and IBM PC Soft war 


1100.30 

•00. "0 

•550.30 

a 


Z 2024 
Z 2025 
Z 2026 
Z 2027 
2 2026 


169. OS 
•09 . 05 
•49.05 
•49.03 
•&9.03 








Business 




2 2020 


Uaabuslars 


169.95 








Item 


Description 


Cast 


Z 2030 


Kings Qii^et 1 1 

PSl-5 Ttadlng ■ -it n.i. ■ 


•09.03 








Q 10C1 


dBase II 


11043.00 


2 2031 


•09.05 








q 1002 


H&ftM III 


11470. 00 


Z 2032 


SI Unl Service 


109 05 




CoCa Hardware 




Q 10O3 


Sidekick 


1215-00 


Z 2033 


Solo Flight 
Star Fleet 


•69.05 


I tea. 


Descr 1 fit ion 


Cast 


Q 10O4 


Turbo Pascal 6097 


•261 .00 


Z 2035 


159.03 


fi 001 


512K upgrade kit lor 




9 1005 


Tuibo Pascal BCD a 8087 


1244,-00 










CoCo 3 owners 


• 109. 00 


Q 100C 


Crosstalk 


•30O.00 


Education 




B 002 


10 Kb Hard drive lnc 




Q 10O7 


Lotua 123 


11034 00 


[tern: # 


Description 
Chen Lab 


Cost 




software 


11209.00 


Q 1006 


Wordstar 20004 


•027.00 


Z 2036 


169.05 


B 003 


Coming! CoCoMetl 




2 20OI 


Webster's Mow World 




Z 2037 


Creature Creator 


159 . 05 




networking extrod In- 






Writer 


•249>.oo 


Z 2038 


Crypto Cube 
Decimal Dungeon 
Donald Buck's Playgroup 
European Rations and 
Loca t Ions 


159.03 




alte! 


TBA 


2 2062 


Webster's Spelling 




Z 2030 


•49.95 


G 001 


The CoCoConnectlon - 






Checker 


•691.33 


Z 2040 


3 159.95 




Use ygiir CoCo to 




2 2003 


Webster' a The saury* 


ISO -95 


Z 2041 






control models., a la me 




Z 20O4 


Windowvord 


•269.00 




•59 . 95 




- anything electrical 


•206. 00 


Z 2005 


Beads 


109.00 


Z 2042 


Fraction Action 


•49.93 


002 


Vldao Anpllfler with 




2 2006 


Thlnktank 


$365.00 


Z 20-43 


Math Maze 


$59. 05 




Bound - attach your 










Z 2044 


Mickey 1 6 Spacs Adventure «69.95 




CoCo 1 or 2 to a 










Z 2045 


Mission Algebra 
Bare Car 'Rithmatl*- 


•59 . 95 




Video Monitor 


•35.00 


CAD rackfl Woe 




2 2046 


• 49 9* 


C 003 


The Probe. - A toaper- 




1 tan r 


Description 


Cost 


Z 2047 


Re member! 


•69 93 




ature sensing unit 




Z 20O7 


TURBQCAD (V 1.4) 


•309.00 


2 2046 


Ships Ahoy 


•59. 05 




you plug In to the Joy 










Z 20 49 


Spellagraph 


$59 , 95 




Stick port. 


149.03 


Trade Bi 


nalness Packages 




2 2050 


Spol lakozan 


•59 - 95 


G 004 


■■-'■: Upgrade Xlt - up- 




Ilea * 


Description 


Cost 


Z 2051 


spallicopter 


$59.95 




grade your CoCo2'e 




Z 20OB 


The Motor Trade Package 


109.30 


Z 2V>Z 


Ten Little Robots 


•49,03 




memory to 64KI 


•55.00 


Z 2000 


The Professional * s Pack 


109.00 


Z 2053 


Winnie Ttie Pooh In the 










Z 2010 


Tho Retailer :, Package 


■09.30 




100 ncra v.i.j.i 


$69.05 








2 2011 


The Rental Package 


•09.00 




















Specie 1st 






CoCo Software 




A-seountlng 




Ilea 1 


Description 


Cost 








Item * 


Description 


Cost 


9 1050 


Side Print 


•72.00 


B 1001 


The Vizi lhe ultimate 




Z 2012 


Asset Manager 


•1170.00 










Multi Windowing. VTS2 
emulator. 300-19300 




Z 2013 


Cast besk^Flnance Desk 


•309. no 




Miscellaneous 1 tares 








Z 20 14 


•System 4 


•645.00 


Item 


Description 


Coat 


' 




Z 2015 


C.P.fc. Plus 


•305.30 


C, 2001 


Box of 10 DSDD Disks 


•19. 00 




baud, KS 232 protocol 
IKS - Relational Data 


1190.00 










10 Boxes plus Cper box) 


•16. 10 


b iooa 




Databases 




G 2002 


Blank C30 Cassettes 


• 2.00 




Bab* written In 40L a 




Item * 


Da script Ion 


Coot 




IS Cassettes 


•16,00 




VERY r os i! OS-» L2 


1200 00 


Z 2016 


Oanue.3 IBM-Single user 


1405.00 


G 2003 


Tape case-9, 12 for 


• 5. 00 


a looi 


Say the Vords - two 
Curriculum based 






<Multl user versions 




2004 


Help - Manual for CoCo 


•9.03 








aro ovallobla) 












speLler programs for 
your Tandy Speech / 
Sound Pack ( 32K ECB) 












Modems 








Spreada 


he^ts 




Item * 


Descrl ptlon 


Cost 




120 . 95 


■ Iron 1 


Description 


Coot 


D 001 


Manual 1200/73 baud 










Z 2017 


Lag lot lx 


•309.00 


D 002 


plus 300/300 modem 
IBM Half Card 1200/73 


•240.00 








Fun 








8 300/300 (Auto dial - 
















auto answer) 


•370.00 








Item # 
Q 10-20 
1021 
Q 1022 
9 1023 
q 1024 


Description 


Cost ^ 


003 


Desktop 1200/T3 a 300 
/300 baud inodea <Auto 






The CoCo 3 Tape/Disk 
1 

* 2 

# 3 




Ancient Art at War 
Print Shop 
da to 

Sargon 1 1 I 
Zork I 


•9G.00 






G 1002 

a 1003 

G 1O04 


HO. 00 

iie.oo 
no. oo 


•119.00 

•GO, 00 
•00.00 




dial - auto answer* 
Toralna I Programs 


•425. 00 




•79.00 


I ton # 


Description 


Cost 








9 1025 


Zor« 11 


179.00 


1017 


CoCo-Ttx ■ Videotex pae 
(Vlatell for all CoCos 










Q 1024 


Zoi K III 


179.00 




•79.05 








Q 1027 


Trinity 


179.00 


G 1016 


Vte* 2 - Videotex pac 
for IBM Conpatlbles 










Q 1026 


Ba 1 1 yhoo 


•79.00 




•225.00 








Q 1020 


II Itch Hleker'a Guide 




G 1010 


Superten 2 lor Amiga 4 
Atari 520 ST (specify) 






The Beat of CoCoOz 






to the Galaxy 


•79.00 




•99.95 


G 1005 


* 1 Education 


•16.00 


Q 10>30 


Crossword Magic 


S6O.00 






c iooe 


* S Tort I IOK OrnHB 


>io. 00 


q io31 


The American Challenge 
Balance of Power 


loe.oo 




Modems/Soft ware/Cable 




G 10O7 


#2 Pait 2 32K Game 


116.00 


q 1032 


169.00 


I tea 


Description 
CoCoTex with cable and 


Cost 


G 100S 


3 UCllltlss 


116.00 


q 1033 


Racter 


•79.00 


005 


10O9 


v 4 Business 


110. 00 


9 1034 


Jet 


• 1 1 4 . 00 




manual modem 


•289.00 


G 1010 


S Adventure Games 


no. oo 


9 1035 


MoonpjlOt 


•79.00 


o ooe 


CoCoTsk with <:abla and 


a ion 


ff fi Preschool Bdn 


116 00 


q 1036 


Shanghai 


•60 00 




auto dial modvio 


1431 . 00 


G 1012 


• 7 Graphic* 


116.00 


Q 1037 


Chaaplonchlp Golf 


ISO. 00 


G 007 


Vtex 2 «lth coble and 




G 1013 


9 a :■:■;; Gonao 


110.00 


9 1038 


Borrowed Tine 


186.00 




manual Baden 


$383.00 


G 1014 


$ 32K Games 


no. oo 


2 2018 


The Great International 


G 008 


Vtex 2 vi » .-■ halt card 


G 1015 


flO Education 


•10. 00 




Popflr Airplane Conmtru- 




auto mode a 


1556.00 


G 1010 


#11 Education 






ctlon kit 


•49.05 


G 600 


Vtex 2 with desktop 
auto modem and cable 




<Dlsk only) 


11000 


Z 2010 


Star Trek 


149.05 




•720.00 




NEED HELP? Write to Graham, to Dr CoCo or leave 
a message on Viatel and we'll do our best to answer 
your enquiry in these columns as soon as possible. 




Dear Graham, 

I would like to sake enquiries 
about a project which was 
featured in the January and 
February editions cf Australian 
Rainbow. 

The project was the CoCo ROS 
which was designed and written 
by a Kr D. Viede. 

In the above mentioned 

magazine he described how to 
build and test the CoCo ROS, and 
was going to describe how to do 
some programs for the CaCa ROS 
in part three of his article 
which was going to be in the 

March edition of Rainbow. 

But since Rainbow has changed 
naaes to Australian CoCo, I 
wonder if you are going to 
publish part three which was 
destined for Rainbow? 

As I notice in your last two 
editions March and April, there 
is no mention of the CaCa ROS. 

Hope to hear from you soon, 

A.R.Sterlinl 

Lundea, HSV 

Dear Mr A.R.Sterlinl, 

Unfortunate 1 y due to our break 
with Falsoft Inc, we are unable 
to publish the third part In the 
series. However, ycu can obtain 
a copy of April's American 
Saiobow froa Paris Radio in 
Sydney. 

Grahaa. 



Dear Grahan, 

I recently cane acrqss an 
article In the March 1986 
Rainbow issue called "The Secret 
to Loading those Double Speed 
Cassettes" by Crai* Carmichael. 
After reading the article I 
wondered if it was possible to 
(OSAVE the programs on the CoCo 
3 with the P0KE65497.0 and CLOAD 
then back in at high speed. 

So after about 15 minutes of 
searching and trailing I 

stumbled upon a way to load a 
program saved at high speed on 
the CoCo 3, 



I do not know if this is 
coamon knowledge but I wish to 
share my information with those 
of you who don' t know. 1 have 
found that POKEing 7, B or 9 in 
location 145 permits the loading 
of high speed programs, CSAVED 
with POKE65497.0 in operation. 
The reason that I said 7, 8 or 9 
is because of the speed 

differences in tape recorders. 

The values vary. I have found 
these values successful with ay 
system. If you have difficulty 
in loading your programs, then 
try POKEinfl some low values in 
locations 143 and 144. t have 
found high speed CSAVEtng and 
CLOADinR very useful as it 
reduces the time taken in 
loading programs dramatically. I 
era not sure if high-speed saving 
on the CoCo 3 is triple the 
normal rate but I suspect it is. 

The procedure is as follows: 

- Vhen you are ready to save 
your program: 

1. POKE65497.0 

2. CSAVE"filename" 

That's the easy part. Now to 
CLCAD the program back into the 
CoCo 3: 

1. POKE65497.0 

2. P0KE145.7 (or 6 or 9> 

3. CLOAD 

You'll be surprised how 

quickly the CLOADing cursor 
flashes when you load a program. 
Vha wants a disk drive?? 

Any queiries can be posted to 
14 Vllkins St, 
Glengowrie, 5044 
Please include SASE. 

Eric Morot 
Glengowrie, SA. 

Eric, 

! always have preferred to use 
cassette for valuable program 
backup and. with this news, it 
seems you have found zhe way to 
make the operation viable. 

Oraham 



Dear Graham 

I have just been reading the 
letter from Neville Hoad in the 
September issue of the Dr. CoCo 
column. I have been using my 
CoCo 2 mainly for word 

processing using a Brother CE 50 
daisy wheel typewriter 

Interfaced to the computer for 

18 months now with great 
success. I use the Telewrlter-64 
word processing program. I 
recently bought a Brother X-110Q 
printer to enable ne to utilize 
.my computer for graphics as 
well. 

I was in for a great shock. 
Not the simple attachment of 
printer to computer through 
interface as for my original 
typewriter and instant usase but 
horror of horrors I couldn't get 
it to work. I live in a very 
isolated town far, far fron user 
groups, help and encouragement. 

It took me 10 da"ys to get the 
printer to function correctly 
and I learnt more abou~ my 

computer and programming in 

those 10 days than in all of the 
previous 18 months. 

Mote; it was not the printer's 
fault because as you can see it 
now works e-x-c-e-l-l-e-n-^-l-y, 
but ny ignorance. 

Consequentially I was 

wondering if CoCo could include 
some tutoring columns of 

functions of printers, articles 
on different types of printers, 
and what sort of programe ore 

required to get then to work 
successfully. 

I noticed that Dr CoCo advised 
that a serial to parallel 
interface could be required but 
In fact a Brother X1109 printer 
has counectors for both parallel 
and serial lnterfac.es. 

Another serious problem I 

encountered was that Telewriter 
64' s instructions were not very 
clear espocially with regard to 
the printer. It was only after 
some very, very thorough 

searching that 1 finally saw a 
printer example in a hidden spot 
in the booklet which was a 
wonderful breakthrough. 



Although 1 now know bow to 
print letters won with the 
printer (I an still at a loss as 
to what the ' m 1 means la the 
decimal codes and I'm only 
half-way to being able -o use 
any codes which include an ' n' ), 
but 1 bought this printer to be 
able to do graphics and I'n do 
better off. I haven't a clue as 
to which program Cat least I now 
know I need a program, I think) 
to get to enable me to print 
graphics. I have no access to an 
informative person. Our nearest 
user group being in Darwin over 
lOOOko* s away. Do I require 
special programs or do I need to 
include special Instructions 
into a special dump to printer? 

Vhy don't graphics programs In 
CoCo state which printer they 
used as I have tried to run some 
of the drawing programs with 
graphic dumps included and they 
just print rubbish. In short, 
HELP! ! ! ' 

Will I ever be able to print a 
picture with my printer? 

After a bit of reading and 
consultation with the people 
from whom 1 purchased my printer 
(500kB"6 away) I know that the 
dip switches are best in the 
position of: 

DIP SV U 1-off, 2-on, 3-on, 
4-on, 5-on, 6-off, 7-on, 6-on, 
v-off, 10-off 

DIP SV 2: 1-on, 2-on, 3-off, 
4-off, 5-off, 6-on, 7-on, d-dn, 
9-on, 10-on. 

Perhaps that information may 
be helpful to somebody. 

As vou can see I an a very 
confused beginner and the short 
of my story Is that I really 
need to know which and where to 
get a graphics program which 
will work with my H-1109 printer 
and CaCo with good Instructions 

on how to work it- Can anyone 
help? 

Di Souphandavong 

Tennant Creek 

Ps, I love my CoCo - it is the 
best thing out since si Iced 
bread. Thank you for tha CoCo 
magazine as it is an invaluable 
help to us here In isolation. 

PPS, I'd feeling particularly 
ignorant and embarrassed - 1 did 
learn BASIC programming years 

ago (in the days of punching; and 

feeding cards Into monstrous 
computers) but I have forgotten 
most of it now so if this letter 
sounds ridiculous, I apolaglze. 

jw. 

One of the reasons we have 
this magazine ts' to attempt to 
fret good advice to new users 



like yourself -before they spend 
noney on items vhleh nay 
otherwise create problems for 
them. 

A suitable graphics program 
for you would be CoCoHax 2, 
which is avtalbie from Peter 
Collison at Computerware For 

Klcros in Adelaide (ph. OS 

336-6586). 

I can't guar eo tee that your 
printer will work with this 
program but then J don't believe 
I've seen a program which 
specifically dumps to that 
printer. Perhaps same of our 
'Brother' users can advise. 

Please don't ever feel 
embarrassed about writing to us 
for Information - that's what 
we're here for. 

Graham. 



* 



Dear Graham, 

In my last letter 1 aeked 
about "Draughts", but now have 
found a mistake in ny typlnp (I 
proof read it three times!) and 
now it works OK. However, it 
does not alternate turns between 
colauro and does not coma to a 
stop when the game has ended. 

The April magazine is very 
good indeed - congratulations! I 
still use the Xica as well as 
the 64K CoCo, so wae pleased to 
see some good short programs for 
it, too! 

CoCo Music is very gcod. 
However it was printed in CnC.n 
of lovember '86, and the 
introduction there was fairly 
good, while the introduction now 
is not correct. It needs to be 
pointed out that notes are 
sharpened (apart from ' B* and 
'B') by pressing the SHIFT key. 
Is there any way in which the 
CoCo can be induced to rlay 
chords? Cr are we stuck with one 
note at a time? And what 
alteration would be needed to 
make a note sound while the key 
is being pressed, rather than 
for a fixed interval? 

1 shall await your advice 
about a suitable Database for my 
purposes. I would need a card 
index of people/families, with 
room for membership details and 
positions held, etc. 

I was also very interested to 
see that more than one program 
can be held in Mico's memory. I 
haven't yet had the time to try 
it. 



Congratulations again on a 
good magazine, apart iron 
Eggemon, which seems quite 
inane, all the junk In. 

Com* St at ion 642, and the photos 
which mean little to me. There 
is some space for extra programs 
or hints in these spots. Best 
wishes. 

Rev. John Ford 

Junoe, HSV 

John, 

If you proof read three times, 
and still have errors, then I'm 
not Quite so embarressed by the 
errors which occur in the 
magazine froa time to time. 

As for help with your music 
Questions* I aa not in a 
position to be able to assist 
you, so we will have to ask our 
readers for their assistance. 

1 appreciate your comments 
regarding the material froa the 
'Viatelllans' , however also 

appreciate that they say the 
sajae thing about some of the 
stuff you like in the magazine, 

A suitable database for your 
purposes can be found Id the 
"Best of CoCoOz t 4 - Business". 
In fact, there are two databases 
there, one for a tape system, 
and another for a disk system. 

Either should meet the meeds 
of a minister. 

Graham. 



Dear Graham, 

The tine hae come! It's been 
interesting - the changes and 
vast improvement over the last 
couple of years. I must be one 
of Father Greg's original 
subscribers almost! My magazines 
go back to '82 and the tapes to 

the very first ones out. 

I still have the original old 
grey case CoCo's upgraded to 64K 
with all accessories. The 

quality of programs and content 
are an inspiration to everyone 
and a credit to your team. 

Once more even though you 
don't hear much from me 1 really 
look forward to your magazine 
each month and admire the work 
that goes into its preparation. 

Adrian Jowett 

Adrian, 

Thanks Adrian, it's been a lot 
of work, but it's a lot of funt 

Graham, 



Dear Graham, 

I have been a faithful 
Australian CoCo reader since 
Vol une one number one and have 
found this great magazine to be 
of untold value. 

I compllnent you and' the team 
on such an outstanding magazine. 
But now that this magazine has 
been changed to Softgold, I have 
a few questions. 

1> Does this magazine get 
numbered Vol 3 nunber 7 as a 
continuation from Australian 
CoCo or does It start from 
Volume 1 once again and . . 

2) Vhat has happened to 
"Scoreboard"? Has this unique 
feature of the magazine been 
pushed a6lde in favour of 
something else or are you 

waiting for a free page to 

pounce on? And . . , 

3) If "Scoreboard" is to be 

continued, will it still 

comprise of Mico top scores as 
well? 

David Hill 

David, 

Australian CoCo magazine 

changed content but retains its 
volume series numbers. 

Softgold will feature "Player 
One" instead of "Scoreboard" 
from time to time. 

Unfortvoa t el y, Ha uri ce 

Phillips who is the editor of 
that section, tells me that he 
has not #ot auch in the way of 
input. So if you've been scoring 
nell lately, please let him 
know. 

"Player One" Is for all our 
readers regardless of which 
computer they own. So even if 
you own a (dare J say It) 
Commodore we are happy to show 
the world how goad yau-are! 
Graham. 



Dear Graham, 

My name is John Archer and 1 
have Just seen your latest 
magazine with my article on page 

37. 

1 do not appreciate having By 
articles butchered by you or 
anyone else. I do not mind 
having them gramaticatly altered 
but HOT butchored and STUPID 
comments added - 

The first paint is your 
opening statement, 

'The opinions expressed in 
this article are not those of 
the publishers of this 
magazine' . 

As no opinions were expressed 
in the article, only the 
overview of the history of the 



public domain system, this gave 
the article as a whole a 'BOK 
SABCTIOHED' feel. 

Point 2 Is your adding of 
' (Bull! G.)' to the end of the 

paragraph about copy protection. 

Do you deny that copy protection 
inconveniences the honest user? 
1 can prove to you It is not a 
major hassle for the pirate! 

Point 3 is your added comment 
of '(Ha! G.)' at the end of the 
paragraph about payment. Veil 
you may be one of those small 

minded people who will not give 

someone a fair price for a fair 
product, but fortunately YOU are 
not In the majority. 

I must admit to being very 
pessimistic about ever seeing 
this printed in your magazine or 
alternatively having the wrong 
you have done put right. 

However for the sake of being 
fair I will purchase the May 87 

edition of your magazine, to see 

if yau have done anything about 
attempting to correct the above 
mentioned points. 

If you have not you may rest 
assured that I will no longer 
purchase your magazine iron my 
local newsagent and I will also 
not write any more articles for 

your magazine. 

I would expect after the 
amount of articles I have 
written for your magazine a 
little more considerations, 
particularly in the light that 
the only reason 1 wrote for you 
Instead of writing for a 
magazine where I get paid and 
not butchered, is becau6e of my 
good friend, Barry Cawley. But 
there are limits of what I will 
do for a friendship. 

The ball is in your court! 

John Archer. 



Dear John, 

Firstly J agree with you, I 
probably over- reacted against 
your article. However, with 
piracy rampant In the community, 
and the words "Public Domain 
Software" having come to have 
such a broad meaning, I have 
been very concerned of late to 
encourage people to think very 
carefully about this issue. 

I also appreciate the work 

that you have done for our 

magazine over the time that you 
have been Involved with it and 
feel the contribution you have 
made has been a most valuable 
one. 



I also accept that reputable 
suppliers of Public Domain 
Software such as Barry Cawley' s 
Quality Computer Services do an 
excellent job for the computer 
user and should be encouraged at 
all times by the users. 

However, I disagree with your 
statement regarding payment and 
I disagree of your statement 
regarding copy protection. 

Especially In a increasingly 
standardised computer world, le 
where there are more and more 
IBM clones around, the 

temptation to steal software is 
becoming very great and although 
copy protection can be an 
inconvenience! it is one of the 
few sure protections that the 
author has. 

I must admit that I prefer 
password protection rather than 
protection of the disk. However 
I certainly understand and 
defend anyone who provides disk 
protection. 

People In our society these 
days Just don't seem to want to 
be honest when it comes to 
software and whilst I agree that 
the capable programmer may well 
be able to break into many 
protection systems, the majority 
of users are not , THAT capable 
and so we still have a safer 
market place from the author's 
point of view if the unit is 
protected rather than not 

protected. 

But a/talm this is my opinion 
only and I recognise your right 
to your opinion. 

Your article discussed one 
form of Public Domain Software - 
which is a distributed form of 
Public Domain Software which 
seems to be an honest attempt to 
get quality software to the 
people at a reasonable price. 
With this we have no argument. 

However, there are a number of 
unscrupulous dealers within the 
community who are importing from 
Singapore and Taiwan, copies of 

commercial software worth 

thousands of dollars here in 

Australia, and in many cases 

selling tbea for less than $50. 

Fortunately, the owners of 
that software are slowly 
catching up with the importers 
and making their point in court. 

1 am sorry that I reacted the 

way I did agaiact what you were 

saying, because what you were 
saying was basically correct in 
its context. However we will 
never support anyone who 

distributes or encovra#es 

distribution of stolen software. 
Graham 




Dear Dr CoCo, 

I recently experienced an "OS 
error" (Out of String space 
error) whilst programming. This 
type of error has never occured 
In ay work before, so I am at a 
loss as to how to deal with it 

Could you please help? 

David Hill 

Oakvllle, fSV 

Dear David, 

Vben you starts up a CoCo or 
an MC-10, BASIC will reserve 200 
bytes of string storage space. 
Therefore when you assign a 
string to something (nr a group 
of strings to something), the 
length of that string (or the 
combined length of those 
strings) must not go over 200 
bytes, otherwise an OS error 
will occur. 

The best way to combat this 
problem Is to locate a CLEAR 
statement higher than what BASIC 
sets in the beginning of the 
program. In your case try CLEAR 
500. 

If the problen still persists, 
increase the size of your CLEAR 
statement by 200 bytes, ie add 
200 bytes onto the last value of 
your CLEAR statement. 



Dear Dr CoCo r 

I have a late model grey case 

Colour Coaputer and a BMC BXSO 

printer. Recently I changed froa 

tape to disk (CFK Panasonic 
Drive with BDOS). Using a 
Tandy Xultipak Interface, 

CoCoXax <V 50315) le a very 
useful program. 

The only problem is that the 
hard copy produced on my printer 
does not use the full width of 
the paper Cln fact only about 
3/4 the width of the paper is 
used) . 

This results in circles being 
printed as avals and erowdad 
alphanu aeries. 

Could you or your readers tell 
me if this is what normally 
occurs with CoCoKax or Is there 

eoae way to configure the 
printer to get a full width 
"unsqueezed" hardcopy. 

Yours gratefully, 

Steve Tathaa. 

Dear Steve, 

There could be quite a few 
answers to your small problem. 
One of them is that you could 
put your printer into elongation 
mode - that way anything printed 



will be twice the length (it 
doesn't really solve the 

problem, but it's an idea). 

Another way is to reconfigure 
your CoCoXax to run under a 
different printer. 

For example, did you know that 
the LP VII 1 and the DXP130 are 
essentially the same primer? 
The idea here is if the DXP130 
printer isn't listed in your 
configuration program, the LP 
VIII is. So you use the LP VIII 
fomat to use on your DMP130. 

Therefore you could try to 
configure your CoCokax with the 
idea of using a different 
printer configuration to replace 
your BKC BX80 printer. 

Mope that helps. 



Dear Dr CoCo, 

In October 1986 ay daughter 
and I typed in "Rockfall" by 
T.J.Davies and can not get it to 
run, I have had the program 
checked by the user group and 
still no Joy. Line 6 and 62 seen 
to point to a oachine language 

program which Is not there. 

Ie it possible for you to 
check that for ne or would you 
be able to give me the address 
of Xr Davtes please. 

I have been waiting for a 
"correction" section in a later 
aagazlne but It looks like we 
are the only ones who typed it 
In. 

Look forward to hearing iron 

you whenever you get am spare 
minute. 

Have a sice day. 

Gordon Albert 

Taaworth, BSV 

Dear Gordon, 

I have run the program here in 
the office and it sesoa to run 
well. The 'machine language 
program that Isn't there' is 
actually already there - it's Id 
the RAM of the CoCa. So that 
eliminates that problem. 

I can't offer any real help, 
mainly because I don't know 
enough of the situation, ie what 
exactly it does (or doesn't} do, 
what errors appear, and SO 
forth. 

We are not in the situation of 
giving peoples' adresses' away, 

but if you send your letter to 
us, we will forward it to Xr 
Da vies. 



Dear Dr CoCo, 

I have a Tandy Color 

Computer2. I recently tried to 

program the "Gopher" game (Steve 
Youngberry; September 1988 
CoCo). 

"When I tried to run it I got 
an FC error In line 17. I have 
checked it over and over but to 
no avail. Can you help ae? 

D.A.Hall 

Paralowle, SA 

Dear D.A. t 

It sounds like the cause of 
the FC error is located 
elsewhere, and, by looking at 
the line, it appears the error 
stems from the GET command 
contained Inside the line. 

The requirements for a GST 
command is that you have to give 
it enough space to GET the 
rectangle* - 

In this case go to line 13 and 
increase the size of eaoh double 
dimension AND save memory at the 
same time. Retype the beginning 
of line 13 like this ... 

13 DIM F(15) t GG<7>, KN(7), 
CC(7):T1S=" ... 

and continue the rest of 

the line from there. 



Dear Dr CoCo, 

I have an old grey case CoCo, 
Tape recorder, disk drive (40 
track single sided), CPA-80 
printer and ay problen Is with 
the drive. 

The controller is a JAM 
without a switchable ROK. 1 have 
chips for both ES DOS and J DOS 
. . . now for the curly bit . . . 

Is it possible to put either 
system on disk and be able to 
use thea instead of changing 
chips all the tine? 

Ian Blackburn 

Dear Ian, 

Yes, you can go about that 

system. But there is a much 
faster and better way to go 
about it. 

1 notice that your controller 
isn't switchable ... well why 

not make It a switchable DOS? It 

is possible and doesn't cost 

much at all. 

I can't give you any technical 
details here, but I know someone 
who does. Get in contact with 
Colin Jforth on (07) 324 2128 and 
ask him re the switchable DOS. 
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ADEL 



EA 





by En Passant 



The original idea was for a 
few people to come over for the 
weekend. The gathering became 
much larger, as you will read. 

It all began on the L9th April 
when Vorabat arrived from 
Melbourne on his motorbike. 
Joined by Daze on the Thursday, 
the festivities had begun. 

Early Friday morning eaw a 
small group; Deeeip and Jackal 
(our hosts for the weekend), 
Vombat, Kopar and me filling In 
crosswords, sending a few 

messages on Viatel and enjoying 

the odd drink while awaiting the 
arrival of the many. 

At 3.00am» the doorbell ran*. 
There was a race from within and 
In they came. A quiet night had 
becone Instant party time! ! 
Solitaire, Batrag and Vino 
boasting of "leaving the others 
for dead" on the highway were 
followed by Manticore, Eddorean, 
Leisa. Maltese Sparrow (whose 
ears were ringing from abuse 
about his extra high, high 
beam) , Beetz , Louisa , Yakka 1 1 
and Vozzie. With still more 
arriving that day, Hodonn 

Batt lemoatcr, Tuatha and the 

trio from HSV, Ron J Coyote, 
Hippo and Lindsay. 

All was ready now for the main 
event on Saturday night - a bus 
trip around Adelaide. At 4.00pm 
the driver had arrived and as we 
boarded the bus, a few "extras" 
■from the club Joined us. First 
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stop: the Casino. 

Ve arrived Just in tine for 
"happy hour"! Ve had a few 
drinks, a Quick tour around, and 
a bit of a flutter. An hour or 
so later we emerged again. Vlth 
only a few having suffered from 
wallet failure, we made a few 
trips In the Pop-eye. <I think 
It is a boat! -G. > 

A normally peaceful trip down 
the Torrens turned into a 
raucous event. The couple 
embracing on the banks will long 
remember the cheers, applause 
and laughter ringing in their 
ears. So too, the canoist and 
the Jogger (who overtook the 
boat>. 

Feeling a little hungry after 
the gruelling 35 minute cruise, 
we headed for the pie-cart, A 

slightly bewildered driver left 

us to our tea. Only a few were 

game enough the try the "Gouaet 
Special" - a pie floater. Those 
who were unsure had their 
decision made for them after 
seeing Vozzie with his 
take-away. Of course the offer 
(threat) of a regurgated delight 

for oupper may have had 

something to do- with It! 

On the bus again, and off to a 
great little pub in northern 
Adelaide, the "Old Lion". Here 
we were greeted by the Easter 
Bunny with his chocolate eggs, A 
pleasant surprise. Some tried 
the hoae-brew. others stuck to 



their regular drinks, and all 

had a hand In re-arranging the 
seating. Then in a much llRhter 
frame of mind* we made our way 
back to the city to the "Duke of 
York" hotel. 

A graffix fix was on offer 
here as those suffering from 
lack of computer screen soon 
found the arcade games. lusic 
was on the go too, when the 
Juke-box was found and put to 
good use. Vhile all thl6 was 
going on, the lone waitress was 
left to fix the drinks, flccne 
really wanted to leave, but we 
did and this tires we went to the 
"Earl of Aberdeen" hotel. 

Vhile travelling, we had 
started a sing-along in the bus. 
It was no wonder the the manager 
had a slightly worried look 

about him as we entered the pub 

singing the "Brady Bunch" theme, 
Given that the room was crowded, 

we xorned a hunan "train" and 

danced our way around to the 
vacant space at the other end of 
the room. Some of the group 
actually found enough room on 
the floor space to sit down in a 
circle and play a okulling ^anc. 
This ended soon after someone's 
drink rent west, the echo after 
being "I don't know them", 'they 
didn't come with us"!! 

The "Barl of Aberdeen" was the 
last of the city pubs. Ve left 
there (to the delight of all), 
singing "Happy little Vegemltes" 



as we boarded the bus and made 
our way to the Glenel* Football 
Club. 

On the way, more soars were in 
order, the most prominent bain* 
"Old McDonald had a Form" . 
Bo-one was left out, net even 
the driver, who scored his VROOX 
VROOH. Sons of the "sounds" were 
unrepeatable, and definitely the 
unprintable! 

Anyway, off the bus for the 
last tine, to dance, laugh and 
cheer the night away for the few 
hours left before closing time. 

At about 1.00pm we walked 
(stoRRered) back to the Jackal's 
to continue the partying. The 
faster Bunny appearod with a 
basket full of goodies (thanks 
Hippo) and so ended a fantastic 
evening enjoyed by all. 

Of course Saturday night 
wasn't the only event of the 
weekend. 

Gypsy Rover, Greenwood, Sunny, 
Absent, Fiona and Hordak called 

in at different times to meet 

everyone and join in on the fun. 

Ve had "world record attempts" 
at sleeping bag cramming, visits 
to the Magic Mountain and 
Downtown leisure centres. Tennis 
on Sunday afternoon for the 
super-active. Some just relaxed 
out in the sun or went for a 
swim In the pool and enjoyed the 
cullinary efforts of Jackal and 
Desslp. 

Bo-one will forget Sunday 
nignt at the movies. Ve went to 
see "Little Shop of Horrors" in 
the city and were subjected to 
Bodonn's cocktail maiin* when we 
returned (the worst of which 
being the concoction that he and 
Daze devised) . 

There was really no end to It 
at all, until departure time - 
uuuhrjr! 

On Easter Monday we said 
goodbye to most who had rade the 
trip across. Those who were 
left, departed one-by-one during 
the week until finally eerie 
eileEce overcame the Bath St 
residence when Louisa left on 
Anzac Day. 

On behalf af everyone, 1 would 
like to thank Sue and Ray 

<Dessip and Jackal) for making 

the weekend the success it was 
and remind them of a few words 
pasted on a ransom note . . . "we 
shall return"? 

En Passant 
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BULLETIN 



BOARDS 



by Barry Darnton 



Before discussing Bulletin 
Boards I would like to briefly 
describe for those that don't 
know, what equipment one would 
need for contacting a Bulletin 
Board , 



MODEM: A modem is a hardware 
device that connects to your 
computer through an RS-232 
interface and converts incoming 
analog signals Into digital 
signals that your computer can 
read, and reconverts digital 

signals from the computer to 
analog signals suitable for 
transmission over a phone line. 



TERKIHAL PROGRAM: A terminal 
program is a program that reads 
the signals from the modem and 
transfers them to readable 
characters on your terminal 
screen. This program also 
transfers characters that you 
enter at the keyboard to the 

modem. 

FULL DUTLEX:A node of 
communications that allows two 
systems to simultaneously 

transmit and receive two 
different sets of signals. 



SYSOP: System operator. This 
is the person who rune the 
bulletin board and generally 
maintains the system's files, 

message base and grants user 
access to the syeten. In most 
cases the system operator is 
usually the person who owns the 
system. 

The first question I get 
asked when talking to people at 
work, computer meetings or any 
other place where the subject of 

computers comes up is, "Vbat Is 
a bulletin board"? 

Quite simply a bulletin board 
is Just an electronic post 
office run by a computer. Each 

person on the bulletin board le 
given a mailbox that they can 
look into anytime to see if they 
have any mall waiting. 

These mailboxes differ to the 
ones at your house in that they 
have no numbers, they are 
addressed by your name and only 
you can read any mail In that 
box. Mailbox is not generally 
used on bulletin boards, they 
are known as "SECTIOSS", and 
this is the term that will be 
used in the rest of this 
article. 



The following is a 


list of sections that 


my bulletin board has 


and what 


the sections are used for. 




Section 


Hame 


class 


Use 


Description 





Comments 


Private 


messages 


User comments 


1 


General Kail 


Public 


Messages 


General discussions 


2 


For sale 


Public 


Kessages 


Items for sale 


3 


Brain Teasers 


Public 


Messages 


Trick questions 


4 


Private Hail 


Private 


Kessages 


Private discussions 


5 


Adventure 


Public 


messages 


Hints for adv games 


6 


Jokes ft Fun 


Public 


Kessages 


Just for a laugh 


7 


Other Systems 


Puhllt; 


Mfagti/'Fi lee 


Hod Coca Section 


& 


Coco RS-DOS 


Public 


Files 


Coca U/D Section 


9 


0S9 S, I.G 


R/A 


Ksgs/Fi leB 


0S9 Users section 


10 


Kisc I 


R/A 


Ksgs/FUes 


Opened as requested 


11 


Kisc II 


R/A 


Xsgs/Flles 


Opened as requested 


12 


Rise £11 


R/A 


Ksgs/Fi les 


Opened as requested 


13 

L 


Adults Only 


R/A 


K6gs/Fl le6 


Adult Discussions 



9 



Another type of noil 6ection 
on bulletin boards Is known aa 
the public nail section. This 
section contains nail that can 
be read by anyone who has access 
to that section. Most bulletin 
board systems will contain at 
least two nail sections If not 
nore. 

Access to these sections is 
deternined by the Sysop, for 
example, if you cvn a CoCo and 
ring a bulletin board that is 
primarily an 1BK users board, 
the Sysop nay consider that the 
IBM mail sections would be of 
little benefit to you and not 
give you access to then. 

The following is a list of 
sections that ay bulletin board 
has and what the sections are 
used for. 

Other sections are not in use 
for any particular reason at 
this tine. R/A means Restricted 
Access, meaning that the Sysop 
nust approve your access before 
you can use then. 

At the tins of this writing, 
sections 10-12 were being used 
for gauss of dlplonacy. 
Diplomacy Is a strategic board 
game normally played at a set 
location with a group of people. 

These sections allow it to ba 
played without everyone having 
to meet at the ene place - it 
also allows you to play with 
people who you have never even 
net. The OS9 S. I.G is for OS9 
users, the only restriction on 
this section Is that you must be 
either an 0S9 user or have an 
Interest in Unix based systems 
to get access. 

This is only an outline of ny 
BBS, not of BBS's in general, 
other systems run different 
sections and options depending 
on the types of conputers they 
cater for and the Sysop' s 
personal preferences. 

Bulletin Boards are only 
worth what people put Into them 
- basically you only get back 
what you put in. 

If the eysop allows people to 
do what they like things will 
soon get out of hand and the 
visitors will be put off by 
meaningless discussions and 
senseless messages, this type of 
system will soon lead to a lack 
of Interest from users and 
subsequently close the board 
dawn. 

It is both the user's and the 

Sycop' c reeponeibility to moke 
sure that a reasonable level of 
discussion Is maintained in the 
interest of the users and the 
welfare of the board. 

A bulletin hoard's nail 
sections can be used in a 
variety of way6 fron discussing 
computers to space travel. 
Contrary to Gome people's 

boliofc, BBS'c arc not j uot 



there to discuss computers, any 
type of discussions are allowed 
on nost boards as long as they 
remain interesting and sensible. 

The only restrictions on 
leaving nail on boards la that 
you put the message In the 
correct section, for example If 
you stare a Joke in the "For 
Sale" section, then you are 
defeating the purpose of having 
sections. 

On most boards, users have 
the option of selecting what 
sections they wish to read 
depending on their personal 
preferences. Storing messages 
in the wrong sectioLs also 
forces people to read naiL that 
would not normally be there. 



Bulletin boards vary in 
numerous ways other than 
previously discussed. My 

bulletin board, because It is 
dedicated to the CaCo, only hoc 
information relating to the 
CoCo. 

Like most BBS's I rely on 
user input for this Information 
first, For example, thanks to 
Bill 0' Donne 11, the 

Coco-Connection had a complete 
rundown on the CoCo III quite 
sons time before it was ever 
released, and I on sure that 
there are a lot of people who 
get other advance infer sat ion on 
CoCo products very quickly from 
my board, 



I don't believe anyone can 
successfully run a multi-system 
bulletin hoard, ac no ono pcrcon 
can know all about all computer 
systems. 

I THUS OF IBTERBST 01 
TBB C0CO-COSBBC1I0I 

Bulletin Section 

- COCO III Information 

- Memory nap for CoCo I a II 

- List of peeks and wbat 

they do (CoCo I a II) 

- List of pokes and what 

they do (CoCo 1 a II) 

- Pokes for games iextra nen 

or colours) 
Trading Section 

- Monitors, drives etc for 

sale (private) 

- St Marys Software. 

Catalogue a price list of 
software and hardware for 
the CoCo. 

- The software exchange. 

stationary suppliers 
catalogue 4 price list. 
Voting Section 

- Voting on a variety of 

subjects and system 
questionnaires. 



PROBLEMS WITH 

PUN! I KG BULLET IB BOARDS 

Problems I have encountered 
with BBS's are very few, nost 
problems are normally due to 
users not understanding how to 
use their terminal program, or 
the hardware and the software 
that the board uses. 

Most of these problems are 
easily sorted out with a little 
perserverence and reading of the 
software documentation. 

BBS's usually have help files 
available regarding the separate 
functions until you get more 
proficient and no longer need 
them. 

General Ly there are not many 
problems with running a bulletin 
board, but as usual there art 
some people who get pleasure out 
of attempting to crash systems 
and leave messages that are not 
of good taste. 

The reason behind thle type 
of behavior is beyond ay 
comprehension. I see no sense 
In replying to these nor one as I 
think it would make then more 
aggressive in their reply. 

Access to thia, as with most 
other systems, Is restricted to 
stop these people fron leaving 
messages In general mail 
sections, thereby buffering 

usere from seeing these foul 
connects. 

Another problem with bulletin 
boards is that some people tend 
to think that the only thing to 
discuss on a BBS is computers. 

Funnily enough very little is 
actually discussed on computers 
unless someone has a problem 
they would like help on. 

Alnost all subjects are 
talked about from time to time 
and any type nf HfeeuRfilfin ie 
allowed as long as it is kept 
clean. 

One more problem I encounter 
from time to time is people who 
Join the system just to download 
files and not even look at the 
general nail discussions, never 
mind about Joining in! 

Thl6 annoys ne no end and 
restrictions are made by placing 
an upload/download ratio on all 
users. Another sore point is 
the content of files uploadBd. 

Very few files uploaded have 
actually been written by the 
people who uploaded then! 

This is an understandable 
point except that by the tine 
nost people have purchased a 
nodon they are usually 

proficient enough to be able to 
write a program of some 
description. 

I have tried everything 1 can 
to tail people that ALL magazine 
programs are copyrighted to a 
certain extent. Vhile I have 
checked as thoroughly as 1 can 
on. the copyright laws concerning 

aagazloa articles I faal that 
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ev«n if legally right, we aust 
bear In Mind that people such as 
Graham rely on program written 
by the users to keep hie 
■agazlne going, the sane applies 
to the American Rainbow and 
their programs. 

1 nust decide what a 

reasonable amount of tine is 
before I put these files up on 
the systen. 1 would like to see 
a lot more local product rather 
than American. 

Some users have even uploaded 
commercial programs to the board 
not knowing that they are a 
commercial progroa. This goes 
to show what the extent of 
piracy is In the community. 

Just getting off the track a 
little bit I have never preached 
to anyone about the morals of 
piracy nor do I Intend to start 
now, out 1 feel that it is 
getting a bit ouch when people 
have so auch software that is 
Illegal that they don't even 
know waat is what anymore! 

One ec re thing f would like 
to point out is that being a 
meaber of a BBS is a privilege 
not a right, if you don't obey 
the rules on the road eventually 
you will not be allowed to 
drive. 

The sane applies to all 
BBS' 6, the rules are pretty 



flexible but the privilege will 
be removed by any Sysop If they 
are not obeyed. 

A lot of people don't realise 
that BBS's have a responsibility 
to Telecoa under the 

Teleconunlcations Act to keep it 
clean and responsible. Breaking 
the act can be very expensive to 
the Sysop. 

One last thing that gets on 
my goat a bit is that sons 
people think that because I caa 
afford to run a board that I 
should be running all different 
baud rates and at least two 
phone lines. 

1 would like to make it quite 
clear that I aa not subsidized 
by anyone except nyself and that 
this system costs ae money tD 
keep running every day of the 
week. 1 run the board out of 
loyalty to a coaputer I feel is 
capable of a lot more than the 
critics give it credit for, 

The reasons behind starting 
this board were mainly 

associated with the Increasing 
number of calls that user group 
contacts were getting because 
the local user group was or had 
closed down. 

It become quite clear that 
only a few groups were still In 
existence and 1 thought the 
board could be of sone help to 



these people that did not want 
to travel hall way across town 
to get to a meeting. 

I have asked several times on 
the board for names, addressee 
and phone numbers of the 
contacts that were still running 
meetings. 

If you run a meeting still 
and would like it put on a list 
on the BBS then ring me and I 
will be happy to 6tart a list of 
all the CoCo groups Australia 
wide. I aa always open to 
suggestions on improving the 
board and any suggestions are 
welcome. 

Anyone selling computer 
peripherals or software that 
would like a little extra 
advertising are also welcome, 
all 1 need Is an unformatted 
text file either uploaded to the 
board or sent to me on a disk in 
either KS-Dos or CoCo format. 

The bulletin board runs 24 
hours a day and is free of 
charge. I an now running a 
net coma 1234A SmartoodeB and run 
the system at 300, 1200, and 
2400 baud, lull duplex. 1200/75 
can be used if you have a 
Soartaodea. The board's name is 
THE CO-CO COBRECTIOB" and the 
phone number is 02-618-3591. 
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12 months CoCo ma**** 

20%U! 



only $32.00 
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ADDERS - EASTER! 

They came from 
near and far to be 
in Adelaide at 
Easter. 

Fortunately for 
Adelaide — they did 
go home again! 

And we finally got 
dDESET and Jeff in 
front of a camera! 
- Oh well, it's only 
once we hope! 




Jeff doing his Dick 
Smith impression. 




Sundry— sober 
in Adelaide. 



Leisa- almost sober 
in Adelaide. 



Wino - all that food 
for one person! 




Jeff and dBcset 




Say "cheese" Mopar 




Wino on the floor 
(again!) 



Sundry! 

leave 

the 

poor 

little 




Rubber Duck, Jackal, Jessip and friends 



Wombat 
alone 



The 

formidable 

Jackal 

with 

the 

lovely 

Dessip. 
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Goldlink Bashes really are a lot of fun — come along to the next one - will YOU survive? 





had our first 
Viatel Wedding! 
Congratulations go 
to Greenwood and 
the Gypsy Rover who 
were married in 
Adelaide in 
February. 
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IATEL 

AUSTRALIAN NATIONAL VIDEOTEX SERVICE 



APPLICATION FORM «"—««««' 

(BEFORE COMPLETING THIS APPLICATION, PLEASE READ REVERSE SIDE CAREFULLY) 



. PLEASE TICK APPROPRIATE BOX TO INDICATE SERVICE REQUIRED 

1 BUSINESS SERVICE LJ NON-BUSINESS SERVICE LJ 

(CHARGES INCURRED ON BUSINESS SERVICES ARE USUALLY TAX DEDUCTIBLE) 

SURNAME (OR BUSINESS NAME IP BUSINESS SERVICE) GIVEN NAMES 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 


POSTAL ADDRESS NUMBER/STREET 


I i ' ! 1 1 i 1 i II' 1 ' ' ; _U ' ' 


SUBURB/CITY STATE POSTCODE 


II II II 1 II 1 III III III 


TELEPHONE NUMBER ON WHICH SERVICE IS REQUIRED (INCLUDING STD CODE) 


1 III ill 




** CONTACT NAME (IF BUSINESS SERVICE) GIVEN NAMES 


2 mi i i M i i i I 1 1 I I I I 


POSTAL ADDRESS FOR BILLING IF DIFFERENT FROM SECTION 1 ABOVE 
NUMBER/STREET 


I I I I I I I I I I I I I I I I I I I 


SUBURB/CITY STATE POSTCODE 


I I I I I III I I I I I I I II I I 


CONTACT TELEPHONE NUMBER (INCLUDING STD CODE) 


III M I I I I 




*^| 0n PLEASE DESCRIBE NATURE OF BUSINESS (OR OCCUPATION IF NOT A BUSINESS SERVICE) 


3 I I I I I I I I I II I I I I I I I I l II I I I I I I 


PLEASE INDICATE TYPE OF EQUIPMENT USED TO ACCESS VIATEL 


III I I I I I I I I I I I I I I I I I I 




55fW THIS FORM SHOULD BE HANDED IN AT ANY TELECOM BUSINESS OFFICE OR MAY BE 
WWlructlOfW MAILED WITHOUT ASTAMP TO FREEPOST 20, VIATELB0X188C,GP0 MELBOURNE, 
VICTORIA 3001 

PLEASE ALLOW TEN WORKING DAYS FOR PROCESSING OF APPLICATION AND RETURN 
MAIL ADVICE. 
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GOLDLJNK: The place to be on VIATEL 



hum 



SPAN OVERLAY NO. 140 

15 



REGISTRATION AND SUBSCRIPTIONS 



Customers must register as a Business Service if the telephone number nominated for the use 
of the VIATEL Service Is a Business Service and/or VIATEL is to be used wholly or mainly for 
Business, Commercial, Industrial, Professional or Government purposes. (Charges incurred 
on Business Services are usually tax deductible.) 



Where a Business Telephone Service is nominated for the use of VIATEL, but the use of VIATEL 
is wholly or mainly for Non-Business purposes, the Customer may be registered as a Non- 
Business VIATEL subscriber, providing the registration Is taken out in the Customer's personal 
namp and address and not a Business name. 



Telecom Australia will register the Business or Individual named under Section 1 as a 
Customer of its VIATEL Service and will provide the Customer with a confidential Customer 
Identity Number and Personal Password by mall. 



Where billing address is indicated, bills and bill related correspondence ONLY will be 
forwarded to that address. All other correspondence will be forwarded to address under 
Section 1, 



Customers should advise VIATEL of any change of address as soon as possible. 



If you lose your Customer Identity Number and/or Personal Password, you must advise 
VIATEL in writing before new numbers are issued. Our postal address Is: Freepost 20, Box 
188C, GPO Melbourne, Vic. 3001. FOR SECURITY REASONS REPLACEMENT NUMBERS 
AND PASSWORDS CANNOT BE PROVIDED OVER THE TELEPHONE. 



Customers of VIATEL acknowledge that their name ard registered VIATEL Number will appear 
on the VIATEL Mailbox Directory and that Service Providers and/oi other registered VIATEL 
users may send messages to their VIATEL number. 



Telecom Australia undertakesno responsibi lity in relation to the accuracy of the information or 
service provided by Service Providers on VIATEL. Telecom Australia will not be responsible for 
any loss or damage arising out of or in any way connected with the use of this information or 
service. 



Attention is aisodrawn to the terms and conditions governing the provision of information and 
services by some Service Providers . These terms and conditions may, in some cases, include a 
disclamer absolving the Service Provider irom liability regarding information and services 
supplied on VIATEL The means of accessing these terms and conditions is set out on the 
Service Provider's Index Page on VIATEL. 



Should you require any chancjes to your existing telephone equipment <e.g. new exchange 
line, additional socket), please contact your local District Telecom Office. 



In a small number of cases VIATEL reception may be unsatisfactory. Correction may incur an 
additional charge. 
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Veil, as you've probably 
realised, there hove been a few 
changes at Coldllnk in the past 
few weeks. The bluest one (far 
ae) has been taking the big step 
and opening ay very own node on 
25303. 

Ah Graham, you tried to warn 
De! Boy has It been bard work! 
Still, despite hours of slaving 
over a hot terminal, no longer 
recagni2lng my bod wben. (and 
if) I see it and running up one 
papa 92 that should kaep Viatel 
in cheeze and bikkies for the 
next 20 years, it's done! 

Swan Sanctuary — Is up and 
running comprising of: 

Poet's Corner, for the more 
creative Viatellian souls 

- The Good Hews, tfhere you can 
read about and share the GOOD 
things that ore happening around 
us, as well as send bouquets to 
deserving people. 

Quizz Index, Full of 
(surprise surprise) quizzes, 
questionnaires, puzzles and 

games. 

- Forget He Hot, Your own 
personal Diary service. 

- Swans Asylum, for prableas 
that are driving you crazy! 

The Care Board Is still very 
much in operation on 642. 
Meredith has taken then reins 
there, so now you can have two 
advisors! 

Swan Online, 10:30pm to 
12:30pm Monday to Saturday (stop 
laughing White Rabbit! I try to 
finish at 12-30, honest! > 

And heaps sore la the pipeline 
including Adults Reserve, which 
is a whole story in itself, and 
deflnetly a story for the over 
18e! 

E • ve basically tried - and I 
think I've succeeded in creating 
a special haven for Vtatellians 
to 'come out of the cold' to 
rest and relax and be pampered 
while still being able to enjoy 
sane good old fashioned funl 

Anyway came and checH it out 
for yourself. I'd love to see 
you, and would vary much 
appreciate your opinion or any 

suggestions you might have. 



Many thanks to . . . 

Graham for being so 

understanding. 

- Philip, for providing support 
ond taie os» well ato i..t K ---. 

- Ky members without whom the 
whole thing would be a complete 
waste cf time. 

- And to John, who keeps me 
sone (most of the time). 

Grief! This is starting out to 
sound like an acceptance speech 
at the Academy Awards! 

OntD more interesting stuff! 

Viatel Bashes! 

As I was unable to attend any 
of the recent bashes I sent out 
a frantic plea for information 
to any Viatel lians that were 
there. (So blame them, not me 
far the following gossip!) 

- Jackal and Desslp bravely 
hosted THE Easter bash in 
Adelaide which was a roaring 
success, Judging from the MB's I 
received (mostly unprintable!). 

Jackal hired a bus to chafeurr 
the mob, first to the casino for 
an hour, then off on a boat 
trip, then a pub crawl - which 
is a story in itself. 

Picture, if you will, 25 
'typical Viatellians' (none of 
whom could sing a note) linking 
arms and bursting into a hapless 

pub singing "The Brady Bunch", 

before making themselves 

comfortable on the floor! - Yes, 
they were not so politely asked 
to leave . . . 

Apparently it had been sparked 
off by the Joyful rendition of 
Old McDonald an the bus, You 
wouldn't believe what he had on 
that farm! 

Eventually they ended up at 
the Glenelg Footy Club for a 
light disco and drinks before 
crawliQR back to Jackal's for an 
Easter Egg hunt. 

E. P. had busily hidden eggs 
all over the house (which 

must've endeared her to Dessip 
who was no doubt tearing her 
hair out watching dozens trying 
to find them!) 

Hippo Cnow Babs) consoled 



by Sarnantha McCormick 



those who missed out - and 
delighted everyone else - by 
donning a bunny outfit that has 
to be seen to be believed CRJC 
hai» phutu'ts to sell!) and 

passing out the remainder of the 
eggs to the less fortunate egg 
hunters. 

The nights were interesting to 
say the least, with a dozen 
Viatellians sleeping on the 
lounge room floor. 

Q. How nany Viatellians can 
you fit in one double sized 
sleeping bog? 

A. 8 (is that when RJC got 
Vombat pregnant , I wonder? ) 

The main daytime attraction 
was Jackal's swimming pool. 
Vhlcb brings me to ask what WAS 
Batrag doing to Solitaire that 
induced PJC to wrap his gladwrap 
bag around his camera and 
attempt underwater photography':? 
1 could continue to tell you 
all about flodonn Battlemaster's 
1 entertaining' cocktail 

surprises, Vozzle's terrorizing 
people on the bumber cars, the 
failed auctonning of Beetz 
Jumpers, Lelsa doing herself a 
aischeif trying to cockroach 
(?:?> and so on, but I'm running 
out of roota so that's all I'll 
say. 

Jackal, If vou ever recover 
from this bash and decide one 
day to have another one I'll be 
there! 

Kind you Brisbane isn't doing 
badly in the 'bash' stakes 
cither. 

How does 3 in 3 weeks sound? 
Exhausting! 

I'll tell you about then nest 
month! 

Right now Graham is screaming 
for this article so I'd better 
finish it! Thanks go especially 
to RJC for answering my plea for 
information (Fascinating! But I 
didn't thinK Graham wanted an 
X-rated magazine just yet, so I 
only copied the innocent bits!) 
Catch you later on the BBS! 



Swan. 



o 
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GETTING TO KNOW THE 

TANDY 
1000 



by Jim Rogers 




T am etlll playing around 
with ny T1000 and trying to 
improve ny operation. There 1b 
no trouble with the operation of 
the machine; the main problem is 
the operator. 

I was in Sydney for a couple 
of weeks in April and 1 found a 
relative with a computer which 
was booted with the MS DOS. I 
thought 1 had mode a great 
discovery and could hardly wait 

to get home with a bundle of 

disks of public- domain copies. 

Unfortunately, when 1 tried 
to RUN the disks, to my great 
disappointment, nothing happened 
except the " Bad Conraand" 
replies. I found the reason why 

when I tried a different 
approach by trying to copy a 
disk. The answer was on the 
screen. The formatting of the 
disks was Incompatible. 

Thus for the present I an 
shelving the KS DOS except for 
using the Word Processor, 

Typist, as required and will 
concentrate on the BASIC section 
of the MS DOS. 

1 do not presume that all you 
T1000 users are as far down the 
line as I am myself- but there 
may be some users who are 
beginners also and my own 

problems, solved as I go along, 
may be of some assistance to 
them. 
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So on to BASIC. Some of the 
smaLl things I have discovered 
as I have moved slowly along are 
not particularly well pointed 
out in the Reference Manual. 

1 have found that it Is 
possible to type in after each 
line number an unlimited amount 
of data which will appear in the 
listing but when It is RUN the 
characters for that line number 
are limited to 255. 

Vhen typing in one portion of 
a text at one line number and 

then continuing the text on the 
next line number dont forget the 
space before the quote marks 
otherwise, when RUN, there will 
be no space between the last and 
the first words. 

If you hava boon ucod to 

using the query (?) for the 
print command on an earlier 
machine, it won't work here. 
However there Is a great method 
on this machine of shortcutting 
a lot of command words with the 
ALT key. For instance the ALT P 
will give you the PRINT in one 
stroke. Thus It lb well 

worthwhile to learn the ALT 

combinations as a time saver. 

Kuch time can also be saved 
by learning, as soon as 

possible, the functions of the 
Special Keys. Pages 36,37 of the 



manual give the list of these. 

How let us try one of th« 
small programs orlglnmaily 

printed for the MC10, Just to 
see what will happen. 

Try this one; 

10 REH***CALCULATOR*** 

20 REH***ADDIHG NUMBERS*** 

40 CLS 

50 INPUT "THE FIRST NUMBER IS"; 

A 

60 INPUT "THE SECOND NUMBER IS 

" ;B 

70 INPUT "THE THIRD NUMBER IS 

" ;C 

80 X^A+B+C 

90 PRINT "THE TOTAL IS";X 

Key this in and FUN and you 
will see that It works. Any 
number of variations can be made 
from this to make the calculator 
multiply, divide etc. 

The main point of this 
exercise Is to point out that 
BASIC programs from the MC10 and 

the CoCo can be adapted to the 
T1000. 

Of course this le a very 
simple sample and the iure 
complex programs will require 
some conversion so I would like 

to hear from eome of you who 
have gone as far as converting 
CoCo programs for use on the 
T1000 and let us print thea for 
all to enjoy, 

o 




Editor Jim Rogers 



The souths of April and March 
were very disappointing tines In 
which I received a total of one 
letter in each month fron MC10 
users . 

Row this does nothing ta help 
ne In my arguments with the 
bureaucracy for more space in 
the magazine for more HICO 
content. 

At the monthly policy 
meetings I have to show good 
reasons and proof of user 
members and their interest to 
fight for concessions and, 
whilst Graham is inclined to 
favour ny efforts, I have others 
to convince. 

If interest has really fallen 
off to this extent, and I cannot 
believe that It has, it could 
well mean the death of the MLCO 
section of this magazine as our 
space would be quickly gobbled 
up by the encroaching sections. 
(Just look at the growth of 
Interest in the magazine from 
the Viatel users!) 

This I would hate to see, 
with all the developments which 
have been made with the MC10 
over the past years and all the 



new new additions which could be 
forthcoming in the future all 
gone for nought. 

So, If you are genuine about 
retaining the K1C0 content, 
which I feel sure you are, then 
give ne your support; let me 
have some articles, objections, 
programs, anything, so that I 
will have some ammunition to 
fire at the putter-downers. I 
can't believe that all the MC10 
users have sold their machines, 
broken then up or converted then 
to toasters in the last couple 
of months. At least not all of 
you. However If this is so, then 
I am the only one still 
operating an KC10 and I hope to 
be doing this for a long while 
yet! 
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16K ECB 

SIMEON CHECKS the solution 
of Simultaneous Equations. 
This could be of benefit 
to all High School students, 
especially in their revision and 
horaewoi k asslgnnents. 

Alter solving the problem by 
normal methods, it is only 
necessary to type In six values 
from the two equatlcns, and the 
answer Is Immediately shown on 
tha screen. 



The Listing: 



i •xmmsiMEQH*************** 

**SIKULTANEOUS EQUATION CHECKER* 
m*t**BY MAL HCLAUCHLAHXmm* 
fc****m*tMAFCH, 1987*********** « 

2 GOTO 10 

3 SAVE"204A:3" :END'2 

4 ' **A PROGRAM DESIGNED FOR HIGH 
SCHOOL STUDEBTS TO CFECK THEIR* 



EDUCATION 

ANSWERS TO REVISION TESTS IN 
SIMULTANEOUS EQUATIONS********** 
10 CLS2;PRIHT<?33, "simultaneous e 
quation checker. ";\ PRIHTG65," 

... : p R 

INT8Q7/A TYPICAL PROBLEM VCULD 
BE TO "; :PRINT«129,"FIND OUT THE 

VALUE OF X AND Y " s :FRINT$161 , " 
IN THE FOLLOWING EQUATIONS:- *{ 
20 PR1NTS193," 5X+3Y=70 

";:PRINT(?225," 
2X+13Y=1*6 "i 

30 PRINT©458,"<any key>";:EXEC 4 
4539 

40 CLS2;PRIHTG65," , 5X+ 

3Y=70 "jrPRIFTOQ?," 

2XU3Y=146 ";;PR 

INT«161,"0NCE YOU HAVE WORKED OU 
T TBS ";:PRINT!91Q3, "SOLUTION BY 

ONE OF THE METHODS"; I PRINTS225, 
"YOU HAVE LEARNED.JUST TYPE IN " 

50 PRINT«257,"VHEN PR0HPTED:- 

5,3 ";:PRINT®289," 2,1 

3 70,146 ";: FRIST 

<9321 /'ARD <ENTER> EACH PAIR. 

";:PR1HT«353, M Y0U VILL BE RE 



by Mai McLaughlan 

WARDED WITH X=8, " ; : PRINT8385, "Y= 

10. AI EASY CHECK!! "; 

60 PRlHTG4b8,"<any heyV; ; fcXKC 4 

4539 

70 CLS:PRINT' SOW TYPE THE COEFF 

ICIEHTS OF X AND Y IN YOUR FIRS 

T EQUATION, WITH A COMMA BETWE 

EN THPM. AND <EHTER>" 

80 INPUT A,B 

90 PRIST: PRIST" MOV TYPE THE COB 

FFtCIBNTS OF X AHD Y IN THE SECO 

ND EQUATION." 

100 INPUT C,D 

110 M=A*D-C*B 

120 PRINT" TYPE 2 VALVES FOR R.H. 
S." 

130 INPUT P,Q 

140 X=(P*D-Q*B>/H 

150 Y = <A*Q-C*P>/I! 

160 FRIHT'X^iX;'* Y="Y 

170 PRINr:PR[BT(?450,"<press any 

Key for nore>" 

180 EXEC 44539 

190 GOTO 70 



o 
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GRAPHICS 
16K ECB 

by Ma! Mc.Laughlan 



mmmmmmsm 





AREAS OF ART that I 
haven't yet seen tackled 
on CoCo graphics are the 
rock and bark sketches done by 
the Aboriginals In earlier 
tiraas. 

These are seen mainly today in 
nuseuns and art galleries and 
also In some cave systems, 

I found such intricate 
drawings too difficult (and 
lengthy) to do in a BASIC 
program, so I used the. utility 
"CoCoDraw" (Australian Rainbow, 
November 1986). which r^uitsd 
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in two nachlne language files. 
ABORART1 and AB0RART2. 

These are contained in this 
nonth's Softgold on Tape and 
can easily be viewed by first 
typing In the following short 
ln«rti ng/viewing program: - 

10 CLS: IHPUT'VHAT IS THE ML 
F1LENAHB";F$ 

20 PKODE4,l:PCLS:SCREEIl,l 

30 LOADX F$ ' CHANGE LOADM TO 
CLOADM FOR TAPE SYSTEM 

40 GOTO 40 

Set up the tape or disk, and 
RUN the above program. 

Alternatively you can load the 
ML files into utilities like 
GRAFLOOK or COCODRAV, and look 

at then that way. 



o 
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THE 
FIRST FLEU 




DATABASE 



by Keith Mcintosh. 



WELL, AS THEY say, 
there has to be a 
first time, and this 
is nine. Vhat has prompted me to 
put pen to paper was your 
announcenent of a CoCo 3 progran 
competition. 

I have seen a lot of 
educational-type programs in the 
American Rainbow, ranging froffl 
presidents down to simple 
naths, and it seems to me they 
encourage a national pride and 
awareness not noted in our 
country. 

Australia Is having ite 

Bicentennial in 1988, and I 
reckon that through your Aussie 
magazine you should encourage 
budding Aussie Programmers to 
contribute Dlnkum Aussie 

Educational Programs. 

How about Early Explorers of 
Australia? Row about prime 
ministers? How about produce and 
minerals programs, etc. 

Vith the great graphics now 
available I can picture menu 
driven programs tracing the 
exploration routes of the early 
explorers (what a boon for the 
kids!). Pictures and data 

relating to our Prime Ministers 
etc, etc. . 

Thi6 could be our contribution 
to Our Bicentennial ... so what 
about It Softgold reader? 

This is a program that I first 
wrote a little while back for 

use with my old grey case 64K. I 

utilized some of the functions 
from "Screen Machine" such as 
the scroll protect for display 
and thought it was great by my 
own standard. I have re-written 
it for use with the Colour 
Computer 3 and RGB monitor <I'm 
rapt in both!). 



About the Program 

I have called it "Fleet" and 

it Is a BASIC program about the 
First Fleet to arrive in 
Australia. It draws data from 
several data files that contain 
info about tho6e people who cane 
with the Fleet. 

If you have a Version 2.1 CoCo 
3, you can enter the command 
" DOS" , otherwise type in 

' RUH" FLEET"' . The print function 
was set for a DKP 110 - however, 
It eeens to print OK on ay later 
DHP130. 



I am not a master programmer 
by any means, so the programming 
may be a little (or a lot) off 
and it is aot Intended to be 
entered in any contest at I 
can't stand failure. 

Use It, have & bit of fun and 
yau will probably understand 
what I was driving at earlier. 

(Ed' 6 Bote - Due to the nature 
of the progran and the number of 
data flies that the program 
uses, it will not be found on 
this month's CoCoOz Tape. It 
will come on a aeperate diet. > 

O 



LOW© 1011 






MC-10 

This program is a utility. 
It adcs you how many bsxea 
you wish to have. It then 
picks 6 number e out of 40 
and does your choice of the 
number of boxes. (This program 
is the original and I would 
suggest that lines 30, 35, 45, 
60, 80 & 105 be changed to (45) 
for Lotto or (3fl) for Pooia from 
the present RBTH40). Otherwise 
It Is probably one of the 
neatest nunber selectors yet. 
J.) 

The Listing LOTTOi 



i rem iut*nmiHiilUit 

i PEN tt C>fiVll> HILL'S ** 

3 REH ** LttTUi NUMUCK »* 

4 REM « PICKER ** 

5 REM tt HOVEMfcfcfcv'l9£:t. ** 

6 Hi n i mi-: n 1 1 I i n i a a t 

20 CLS> INPUT "H0M MRNV B0XES"iX 



by David Hill 



£$ F0KB-1T0X 

36 HcRHb(46) 
35 0=f:Nt»< 48) 
4$ 1FQ-NTHEII35 
4 5 P«-RNIK40> 
50 IFP-NTHEM3 
55 IFP*0THEH45 
60 G=Rllt><4©> 
Gfi IFG=N1HEM£B 
76 IFG=OTHEN60 
75 IFG=PTHEHe0 
89 R=RHt><40> 
S5 IFRkNTHEH36 

so iFR=o"THEt-iee 

95 !FR=P7HEHee 

ioo ifr^othenoo 

105 S*RNO<43 > 
110 IFS*WHEH165 

I 15 IFS.*>OTHEH105 

120 IFS.=PTHEH105 

125 IFS*0THEN185 

130 3FS*RTMtHI05 

200 PRlNTN*D<P.O.k«& 

300 PRINT" Prcsi ■•:,•, lt» to CO 

r.Unu* • 

302 Ft* = INKEYt'lF Fit »• ■" THEM 

302 

400 HEXTH 
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■jCHUMBL INGl 
MENTAL 



by Johanna Vagg 



AFTER WE BOUGHT our CoCo 
and before I found the 
Rainbow, I tried 

converting some prcgrans written 
for another Tandy model, I only 
had limited success and was told 
by a well meaning programmer 
that I was going about things 
the wrong way. He said that 1 
should leorn more about the 
conputer instead of Just playing 

around i 

Veil, I'd been out of school 
for fourteen years and 1 didn't 
really feel like studying! He 
trLed to teach me a BIT about 
BIHAPY numbers. He talked about 
the early computers rfith their 
swLtches which were manually 
placed In an ON or OFF 

position. That day was born a 
mental block, and 1 continued in 
my own way. 

I wonder how many new CoCo 
owners share my mental block? 
Recently I had to use binary 
numbers while I was working on 
something 1 VAHTed to da. The 
block hpgan to crumble. If 1 
try to explain the BINARY BIT, 
you may not undei stand until 
you're ready either, but at 
least then you' 11 be able to 
ccme back to this. It might 
even help. 
First look at these numbers: 

64, 32. 16, 8, 4, 2, 1, 

Would you think that by adding 
two or more of these, you could 
malse 127 different numbers, ie 

all the nunbeis from '. to 127? 

1 doubted it, so I checked it 
out. Try a few, or a lot, or 

Just enough to convince 

yourself. 




In our 'Annul' decimal 
system, we put a 1 in the next 
column to the left every t;me we 
get to ten, in binary, we do 
this eveiy time we get to two - 
the lazy person's cojnting 
system? A ' V in the second 
column means 1 lot of 2; in the 
third column, 2 lots of 2 and so 
on. It might sound like the 
lazy person's -way, but It always 
confuses me when I think of 
binary in those terms. So 1 put 
the numbers . . . 



64 32 16 8 



... at th 

reference. 

anybody' 3 
so leave t 
list. Our 
now become 
ON represe 
write the 
1 ON and 1 
ie: 

o 



e top and u 

Zero i 

language <o 

hat off the 

other se 

'switches' 

nt those nu 

number 1, 

eave the 



se that for 
s zero in 
r Is It?) 

end of the 
ven numbers 

which when 
mbers. To 
we turn the 
others OFF 



Starting at the other end we 
get the number 64: 



















10 = 2 
0000100=4 
0000111 = 4 + 2*1=7 
1000001= 64 *1 =65 

11 I = 32 t 16+3 = 56 

Yes, I know we have an eight 
bit computer . . . put the next 
number, ie 128. in the next 
column to the left and you'll be 
able fco nake all the numbers up 
to 255. Does that Dumber ring a 
bell? 

The computer uses binary 
numbers all the time, but I 
haven't found it necessary to 
use them often. Recently, 

however, we bought an early 

Christmas present - a printer - 

and 1 discovered thoL a. 

knowledge of binary nuraters 
would be an advantage In 
writing a program to print 
graphics patterns or plcturas. 
You see, the DHP 110 uses 7 
vertical dots in a dot-column 
and you can print all those 
dots, none Of the dots, or 126 

utlier different combinations of 

dots and spaces, or OKs and 
OFFs. 

Armed with this information I 
had another look at Garfield in 
the first issue of CoCo CEept 
34). Garfield was to be printed 



All OH adds up to 127. Let's 
try a few: 



continued on page 58 
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GUESS IS A gana designer! 
to aid in your childs 
improvement in the 

addition of numbers. The program 
is farily self-explanitory, so 

have fun with it! 



The Listing: 



GOTOiO 

1 '****** GUESS **************** 

**** HARRY HOFFMAN ********** 

3 SAVE"21o:3":END' 10 

10 ' 
******************************** 

** TYPE GOTO 1490 TO LIST EACH * 
** LENE AS A SIHGLE LIRE * 

***********************x** ****** 

20 CMP 

30 PALETTE12,0:PALETTE13,64 

40 PALETTE5>33 



50 



*#*;<**************************** 
** SET UP STRINGS FOR USE, AND ** 
** KOST IMPORTANTLY FOR ** 

** INVERTING ** 

******************************** 

60 CS="LEVEL":DS="YOUR SCORE IS 
: » : ES=" WRONG" : F*=" RIGHT" 

70 G$="TYPE >N< FOR NEXT PLAYER" 

80 *$="THE FIGHT ANSWER IS":IS=" 
PLEASE, TRY LOVER LEVEL": JS="try" 
+CHRS(128)+ ,, higher ,, +CHRJ(128)+"l 
evel" 
90 ' 



GUBSS 



EDUCATION 



******************************** 

** SETTING VP BORDER ** 

********r ****************** ***** 

100 GOSUB110:GOTO21O 

110 VIDTH40:CLSe:ATTR2,4 

120 FOR BORDER=OT039STEP2 

130 POKE140 I 150:EXEC43345 

140 LOCATE BQRDER+1,0; LOCATE BOR 
DER.l: LOCATE BORDER, 23: LOCATE BO 
RDER+ 1.22: PRINT"";: NEXT BORDER 

150 FOR B0RDER=3TO21STEP2 

160 POKE140,200;EXEC43345 

170 LOCATE 0, BORDER: LOCATE1.BORD 
ER-1: L0CATE39, BORDER- 1:L0CATE38, 
BORDER: PRINT"" ; l NEXT BORDER 
100 ' 

;mm*m***mm*m***:*:***** 
** WRONG AND RIGHT COUNTERS ** 
** SET TO ZERO, AND CONVERT ** 
** TO STRINGS FOR FURTHER USE ** 

******************************** 

190 VS=0: RS=0: WS$=STRS(WS> : ESS=S 
TR$(RS>: RETURN 
200 ' 

******************************** 
** INTRODUCTION ** 

******************************** 

210 LOCATE 18, 5: PRINT" THE"; 

220 L0CATE17,8:PRIHT" GREAT"; 

230 LXATE13.il: PRINT" GUESSING 

GAME"; 

240 L0CATE18, 14: PRINT' BY"; 

250 L0CATE13, 17: PRINT" HARRY HOF 
FMANB"; 

260 ATTRS.A.BaOCATEie.aO: PRINT- 
ANY KEY"; 
270 IF INKEY$=""THEN PLAY"O3T20A 
CD" iGGTO 270 
260 REMOVING 

***:M******-***#*********** ****** 
** WIPE OUT INTRODUCTION ** 



by Harry Hoffman 



** WITHOUT >CLS< COKMARD ** 

******************************** 

290 ATTR7,7:F0R OUT=5TO20STEP3: F 
OR V I PE=13T028: LOCATE WIPE, OUT: P 
PI NT"" ; • POKE140, 10: EXEC43345: NEX 
T WIPE. OUT 
300 ' 

******************************** 
** COCO ASKS FOR YOUR WAKE ** 
******************************** 

310 L0CATE5.5; PRINT"" ;:ATTR3,5:L 
QCATE5,5:PR1HT" PLEASE TELL HE"; 
;LQCATE5,9:PRINF' YOUR KAME";:L0 
CATE5.13 

320 NA$=INKEYS: IF NA$=""TREN PLA 

Y"T150O2B":GOTO320:ELSE IF NA$=C 

HR$U3) THEN GOTO 360 

330 PRIRTNA$;:LINEINPUT NBS:ffHS= 

NAS+NBS 

340 IF NAS=*" AND NB$="" TBEB BK 

$=" - WHAT'S YOUR NAME ?" 

350 GOT0370 

360 FMS=" - WHAT'S YOUR NAME ?" 

370 * 

***********(*********#*******«)! 

** CENTERING GREETINGS ** 

******************************** 

300 AS-" HALLO ! 'MHHS: P= < I NT (19 

)-LEH<A$?/2> 

390 ' 



******************************** 
#* PRINT GREETINGS AND REPLY ** 
******************************** 

400 CLS<RNDC4)):ATTR2,4;GOSUB120 

410 LOCATEP, 12: PRINT AS;:GOSUBll 
00:LOCATE4,6:PRINr MY NAHE ISC 
OCO 3"; :LOCATE4,12: PRINT" I AM V 
ERY PLEASED TO MEET YOU";: LOCATE 
4, 18: PRINT" AND, OF COURSE, TO FLA 
Y WITH YOU"; :GOSUB1100: GOSUB1120 
420 ' 

♦mm*************************; 
** PRINT DIFFERENT LEVELS OF ** 
** DIFFICULTY, AND INPUT FOR ** 
** CHOICE OF LEVEL t* 

*****mmm*m*m****m:m 

430 CLS<RN0a)>:ATTR2,4:GOSUB12O 
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440 LOCATE4,4:FRINT""; :ATTF3,5:L 
OCATE 4, 4: PR I NT" PLEASE CHOSE YO 
UR LEVEL OF "; : LOCATE4.6: PRINT" 
DIFFICULTY ";SMS; 

450 L0CATE4,8:PRIRT" 1 = NUMBERS 
UP TO 10 "j 

460 L0CATE4, 10: PRINT" 2 = "+C 

HRS<34>+" UP TO £5 "; 

470 LOCATE4, 12: PRINT" 3 = "+C 
HKH34J+" UP TO 50 *'; 

480 L0CATE4, 14: PRINT" 4 = "+C 

HR1 (34)+" UP TO 100"; 

490 L0CATE4, 16: PRINT" 5 = "+C 

HRM34>+" UP TO 150"; 

500 LOCATE4, 18: PRINT" 6 = "+C 
HRS (34>+ M UP TO 200"; 

510 LOCATE4,2f>:LEVEL$=lNKEYJ: IF 
LEVELS=""THEN PLAY"TlO0O3FGB" :GO 
T0510:ELSE LEVEL=VAL(LEVEL$) 
520 ■ 

**r***t***t*H ntMUUt********* 

** GO BACK FOR NEW INPUT IF ** 
** LEVEL IS OUT OF RASGE ** 

***m*m*** ******************* 

530 IF LEVEL<1 OR LEVEL>6 THEN 
OS'JB1460:COTO 430 

540 REM 



**(***************************** 
******** SET UP LEVEL ******** 
******* ************************* 

550 ON LEVEL GOTO 560,570,580,59 
0,600,610 

560 A=RNDQ0>: B=RHDUO) : GOSUB620 
: GOTOSSO 

570 A=RND(25>: B=RND<25> : GOSUB620 
: G0TO570 

580 A=RRD<5Q>:B=RBD<5Q>;GOSUB620 
: G0TO5S0 

590 A=RND(100i : B=RNDU00> : GOSUB6 
20:COTQ590 

600 A=RNDC150>:B=RNDU50):GOSUB6 
20:GOTO6O0 

610 A=RND(200'>:B=RND(2D0):GOSUB6 
20:COTO610 

620 REMINDER 

******* ******* ****************** 
*t PRIST LEVEL, NAME, AND SCORE ** 
******************************** 

630 WIDTH 32:CLS(LEVEL>:PRINT®6, 
CS; LEVEL; : PR1NT<?38. BMS; 

640 PRINTS70.DS; 



050 PRIHT®102,ES;VS»; : PRINT5110, 
FS;RS$; 

660 REXEMBER 

******************************* 

* COCO'S CHOICE IF >+< OR >-< * 

******************************* 

670 CALCULA.TOR-RNDUO) i IF CALCUL 
ATOR<=4THEN CA=1 ELSE IF CALCULA 
TOR>4 THEN CA^2 
680 ' 

******************************* 

* NEXT LINE IS TO PREVENT A * 

* NEGATIVE ANSWER. IF SO, GO * 

* BACK TO * SET UP LEVEL * * 

*****m*mm********** ****** 

690 IF CA=2 AND A<B THEN RETURN 

700 ON CA GOSUB 720,880: RETURH 
710 ' 

******m**********m****x***** 

** QUESTION FOR + CALCULATION ** 
** START HERE ** 

******************************** 

720 PR1HT<?166,G$; 
730 ' 

mm************************** 

** CHECK FOR RIGHT AHSVERS ** 
** AND REHIND OF HIGHER LEVEL ** 
******************************** 

740 IF RS> WS+5 THEN PRIHT<?358,J 

$\ 

750 PRINT$230 1 A; ,, + ";B;"="; 

760 ' 

******************************* 

* TRAMSFERE TO SUB. IF VROXG * 

* AHSVERS ARE MORE THAN RIGHT * 

* OBCE, TO INVERT WRITING * 
******************************* 

770 IFVS>RS THEN GOSUB 133D 
780 ' 

******************************** 
** IHPUT ANSVER AND CHECK ** 
** IF WRONG OR RIGHT ** 

******************************** 

785 GG$=INKEYS 

790 AA*=INKEY$: IF AA$= M "THBN PLA 

Y"O3T200A":G0TO79Q:ELSE PRINTAAS 

;:IF A+B<10 THEN GQT0830:ELSE TI 

MER=0 

800 ABt-INKEYS: IF TIMERO00 AND 

ABS=""THEN GOTO 800 ELSE PRIMTAB 

*;: IF A+B<100 THEM GOTO 820: ELSE 

TIHER=0 
810 AC$=IHKBY$:IF TIHER<100 AND 
ACS="»THEN GOTO 810 ELSBPRINTACS 
;:GOTO940 

820 ASSWm=AA*+AB$;GOTO850 
830 ANSVER$=AA*:GQT085G 
840 ANSWER1=AAS+AB$+AC$ 
850 ANSVER=VAL (ANSWER*) :G0SUB1 19 



0; IF ANSVEB-AtB THEN GO3UB1030;R 
ETURN ELSE GOSUB1140: PRINT0262, H 
*; :GOSUB1290:GOSUB1120 
860 RETURN 
870 ' 

******************************** 
** qUESTIOff FOR - CALCULATION ** 
** START HERE ** 

******************************** 

880 PRHrr@166.G$; 
890 ' 

******************************** 

** CHECK FOR RIGHT AHSVERS ** 
** AHD REMIND OF HIGHER LEVEL ** 
******************************** 

900 IF RS> WS+5 THEN PRINTS358.J 

*J 

9l0 PRINTS230, A; "-"" ; B; "="; 

920 ' 

******************************* 

* TRANSFERE TO SUB. IF WRONG * 

* ANSWERS ARE MORE THEN RIGHT * 

* ANSWERS, TO INVERT WRITING * 
******************************* 

930 IF WS>RS THEN GOSUB 1330 
940 ' 



****************** ************** 
** INPUT ANSVER AND CHECK ** 
** IF WRONG DR RIGHT ** 

******************************** 

945 ggs=ink:ey$ 

950 aas = inkeys: if aas="'!then pla 
y"o3t22a";goto950: else printaas; 
:if a-b<10 them goto 990:else ti 

HER=0 

960 ABS=INKEY$:IF TIHER<100 AND 
ABi=""THEN GOTO 960 ELSE PRINTAB 
$;:1F A-B<100 THEN GOTO 980:EU5£ 

TIKER=0 
970 AC$=INKEY$: IF TIMER<100 AND 
ACt-""THEN GOTO 970 ELSE PRINTAC 
$;:COTOl000 

980 ANSVER$=AAl*AB$:GOTO 1010 
990 ANSVER£=AA$;GOTO 1010 
100O ANSVERS=AA$*AB$+AC$ 
1010 ANSWER=VAL(AHSWERt):GOSUHl 
90: IF ANSWER=A-B THEN GOSUB1O30: 
RETURN ELSE GOSUB 1140:PRINT©262 
, Hi; : GOSUB1310 : GOSUB1120 
1020 RETURN 
103O RENEKBER 

******************************** 
** S/R FOE PRINTING GOOD AND ** 
** EOUMD ** 

******************************** 

1040 POKE65497.0 

1050 PRINT®454,"VELL DONE ";:PR 
INTlMSe.KHS;"!"; 

1060 L=143+(LEVELtl6) 
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1070 FORX=1024TO1024t48-0STEP32:P 
OKEX 1 L:POKEX+1 1 86:FOKEX12,69:POK 
EX+3.82:POKEX+4 i 89:POKBX+5.L:POK 
EX+30,68;POKEX429 ( 79:POKEX+28.79 

:POKEX+27 ( 7L:P0KEX+26,L:P0KEX+31 

,L:PLAY"04T255C":NEXTX 

1080 POKE65496.0 

1090 FOR RIGHT=lTO12:PLAY"O3T30B 
GDG" : NEXTRIGHT: RS=RS+1 ! RSS=STE*< 
RS>: GOSUB1100: KM-""' i AB*="" I AC*= 
»»: RETURN 
UOt) REM 

******************************** 

t* S/R FOR SHORT DELAY ** 

******************************** 

1110 FOR DLY=0TQ 1000; PEXT: RETUR 

H 

1120 ' 

**mm**m*m***********m* 

** S/R FOR LONG DELAY ** 

******************************** 

1130 FOR DLY-0TO2SQ0: NEXT: RETURN 
1140 REXARK 

******* ****************** ******* 
** S/R FOR PRINTING WMJICG ** 
** AND SOUND ** 

*** ***************************** 

1150 PR1NTC422, "sorry"; :A$=NK*:G 
OSU'B1210:PRIHTff486, M try , 'j +CHR4C1 
28> +" another" ;+CHRS<l28>+"one"; 

11&0 PQKE65497,0:FORX=1024TO1504 
STBP32:P0KEX,23:POKEX-H,18:POKEX 
+2 l 15:POKEXt3,H;?OKE»4 l 7;F0KEX 
+27,23: POKEX+2S,18:POKEX+29. 15:P 
OKEX+30.14:POKEX+31,7:PLAY"T255O 
2A":NEXTX 

1170 FOR REPEAT=lT05:FOR VRONG=2 
55T01STEP-3: POKE140, WRONG: EXEC43 
345:HEXT WRONG, REPEAT; P0KE654 96, 
0: VS=VS-*1 : VS$=STRS (VS) : A AS="" : AB 
i="":AC$="": RETURN 
1180 * 

******************************** 
* CHECK INPUT FOR KEXT PLAYER * 
******************************** 

1190 IF ANSWERS-"!*" THEN GOSUB1 1 
0:GOTO310 ELSE RETURH 
1200 ' 

******************************** 
** S/R FOR INVERT! KG HAME ** 
******************************** 

1210 C=453 

1220 FOR X=l TO 1ENCAS) :B$=NIDSC 
AS P X, 1) 

1230 D=ASC<BJ> 

1240 IF D)63 THEN D=ASC<B$)-64 



1250 P0KE1024tX+C,D 
1260 NEXT 

1270 RETURN 
1280 ■ 

**'*****i*******************i**** 

* S/R FOR IHVERTIHG >+< RESULT * 

******************************** 

1290 A$=" "+STR»(A+B)+" ":C=299: 

GOSUB1220 : GOSUB1470 : RETURN 

1300 ' 

******************************** 

* S/R FOR INVERTING >-< RESULT * 
******************************** 

1310 AS=" "4STR*(A-B)+ M ":C=299: 
GOSUB1220: GOSUB1470: RETURN 
1320 ' 

******************************** 
** S/R FOR INVERTING VRITIHG ** 
** IF VRONG ANSWERS ARE KOBE ** 
** THAU RIGHT ANSWERS ** 

**#*m*t**mm***x*****x*t*** 

1330 P0KE65497,0:C=5:A*=C$tSTRS< 
LEVEL) *•' " : G0SUB1220 

1340 C*37;AS=NMS:GOSUB1220 

1350 C=69:A$=DS:GOSUB1220 

1360 O101:A$=ES4VSS:G0SUB1220 

1370 C=109:A$=FS+RSi:GOSUB1220 

1380 IF CA=1THEN GOTO 139C ELSE 
IF CA=2 THEN GOTO 1400 

1390 C=229:AS=STRKA)+" +"+STR$< 
B)+" = ,, :GOSUB1220:GOTO1410 

1400 C=229:AS=SrR$(A)+" - ,, +STR»C 
B)* M =":GOSUB1220 



1410 C=lO5:A»-G»;OOGUB1220 

1420 C=357:W=li:GOSUB1220 

1430 POKE65496,0 

1440 RETURN 
1450 ' 

******************************** 
** S/R FOR A SHORT SOUND *** 
******************************** 

1460 F0RX=1T014: PLArV30T150O2AB 

CDEFG";BEX1X: RETURH 

1470 FOR REP=0TO5:PLAY"T250O5BGD 

G":HEXT REP: RETURN 

1480 ■ 

******************************** 
** 3 POKES TO LIST PROGRAM BY ** 
** SINGLE LINES. PRESS KEY ** 

******************************** 

1490 P0KE383,126:POKE384,161:P0K 
E385,177:POKE113,0:LIST20- 
1500 • 

******************************** 

** THIS FROGRAH WAS WRITTEN ** 
** BY HABRY HOFFKANN ** 

** CROWS HEST CARAVAN PARK ** 
** CROVS HEST QLD 4355 ** 

******************************** 

1510 ' 

illillillililllilllil 
ii i ill 1 it 
till 111 111 1 liiiil 
llii 111 1 Hi 
ill! lii iii 1 iliili 
1111 111 111 1 ii 

1520 •lillliliiliiillliltii 
11 1 ill 1 il 
ii liiii tl il li 11 
11 11 I 1 ii ii 11 
11 Hill li 11 11 li 
H I iii i li 
illlillliliiiliiiltii 

o 



APOLOGY 

Over the past few months Val 
Stephen has sent to us a few 
programs and the such for 
inclusion in the nagazine. 

But- due to a typing error his 
name has been written as "Val 
Stephensan" and "Val 
Stephenson 11 . 

Xany apologies for this 
oversight. 
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COME 



TO 



at 




undee 




Conf '87 this year is to be 
held at the Uniting Church's 
campsite In Bundeena VSV, 

This is a particularly pretty 
area of Sydney, situated on the 
northern tip of the Royal 
lational Park, In Port Hacking. 

Th« water views are fabuLous, 
and the bushwalks are aaoungst 
the best In Australia. 



■ot that you'll have anytime 
during conference for these 
things, because as usual, the 
conference will be Jan packed 
with all sorts of things to see 
and dol 

The big news this year will 
obviously be the growing use of 
OS-9 Level 2 on the CoCo 3*b; 
and Conf '67 Mill be the 

definitive place 

excellent systen. 

By that Use 
will have had tine 
system out and 
really interesting stuff. 

But it is not just OS-9 
le of interest this year. 



to see this 

initial users 

to sort the 

create some 



that 



With the release of the new 
T1000 EX and SX, interest In 
these machines has never been 
higher. Ve'll have a number of 
these computers at the 

conference, as well as their big 
brothers, the T3000 series, 
which we'll be putting through 
their paces. 

We've had continuing interest 
in some of the acre diverse 
subjects covered In the magazine 
at paet conferences, en again 
this year we'll have tutorials 
on hardware nods and on Forth. 

There'll be Basic Basic and 
Advanced Basic courses, and an 
Assembly Language tutorial as 
well. 

Other coaputers will be 
discussed, principally the 68000 
series of coaputers, and of 
course, we' 11 be slowing 

Goldlink 642 on Viatel - and 
Videotex in general. 

Conference Is a place to neat 
old friends, to meet the people 
behind the names in the 

magazine, to learn a lot of new 



information* to see the latest 
Tandy equipment. 

We hope you'll com. We're 
sure you'll be glad you did. But 
please hurry your booking, 
because accommodation <whlch la 
not obligatory) and places at 
the conference, are both Halted 
by the size of the centre. 

The cost is increased over 
previous years due entirely to 
the fact that we are doing it In 
Sydney which Is a good deal more 
expensive than the Gold CoaatI 

On the other hand, many of 
you will save by not having the 
additional travelling expenses 

associated with getting to the 

Gold Coast. 

Ve aln to sake the conference 
a family affair, and the 
location Is a good one for 
people with families who are 
less interested in coaputers, 
but who would still like to be 
with dad or mum for the weekend. 

The faally can take a ferry 
trip, go for bush walks, or just 
laze on the beach, whilst jou do 
your thing at the conference. 
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ONF 




na 



N.S.W. 




ONF '87 



P.O. BOX 1742, SOUTHPORT. QLD. 4215 Phone (075) 510 015 



Hates 
Accommodated (1) S87.00 

Family of 2, + 168.00 ■ * 1 55.00 
Additional family members $52.00 ea 
Includes supper Friday evening, breakfast 
lunch and dinner on Saturday and breakfast 
and lunch on Sunday plus all accommodation. 



One person 

Sat Evening Meal 



Non Accommodated Rates 

One day Two Days 

$40.00 858.00 

$12.00 312.00 



852.00 



S70.00 



Additional family $31.60 S4&.60 /person 

Includes morning / afternoon tea and lunch. 

$20.00 deposit required with booking 1 , 

Tina) payment to be made by 15th July 1987. 



LOCATION :- 

Uniting Church's campsite 

Bundeena NSW 

DATE:- 8th A/. !Hh August, 1987 



REGISTER NOW!! 

We can only accept a limited number of 
people this year. DON'T MISS OUT! on a 
top weekend of FUN, FRIENDSHIP and 
LEARNING. 



Name: 



Address: 

Phone: 

No. People attending: 

SPEAK UP! :- Now is your chance to 
suggest your ideas for any tutorials we 
may not have mentioned, (participants 

only). 



Tutorials likely to attend: 



Please find enclosed: 

chq/money order/bankcard/ visa/mastercard 

Card No 



Signature 
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1GK ECB + PRINTER (DMP-110) 



by Johanna Vagg- 



IF, LIKE US, you have been 
getting CoCo or Softgold for 
Some time, and have Just 
recently bought a printer, you 
will probably have been 

searching through your magazines 
for printer programs. 

I found "Gorlield" in the 
first issue of CoCo (Sept 84) 
and managed to get a reasonable 
picture on my Tandy DMP110 after 
I made some changes to the 
program. This was only one 
picture. I wanted something 

which would do a screen dump of 
any picture. 

Itece ruber &4 CoCo bad a 
pro^raiB, SCREEH PRINT, 01 FMODEO 
PRIHTER by Gordon Thurston. It 
was one of those 'strange 
looking listings', you know, the 
assembly language and machine 
code . . . there are ways of 
entering the machine language 
code from these programs. 

The method I have adopted is 

to use thace 1 ines: 

FOR 1=16000 TO 16329: 
RE* ADJUST TO SUIT 
READ Q>:POKEI,VAL<"«H M +QS): 

IfiXTI 



Then 1 put 
(hexadecimal) 



all the numbers 
in DATA lines, 



This way I have a BASIC program 
which I can edit if I've made 
any mistakes. in this 

particular listing it j & very 
difficult to see the difference 
between 8, and B. 

I had the CoCoOz tape so I 
thought I'd get the use cf the 
program the easy way. It didn't 
work. I checked the START, END 
and EXEC addresses. 



To find START address: 
PRINT PEEK(487)*256tPEEK<46»> 

The End address: 
PRINT PEEK(12C>^5&+FfcEK(I27)-l 

The EXEC address: 
PRIHT FEEK(15?)*256+PEEK(I56) 



The addresses didn't match the 
ones in the listing. The next 
step was to use KLDATGEH 
(machine language data 

generator) from June 04 CoCo. 

If you don't own such a 
prograa, you can still examine 
the machine language programs 
you have CLOADKed. Vhen you 
have your START and ERD 



addresses, use 
program 



this little 



5 REK EIAHIHB MEMORY 
10 ST=16000:REK ADJUST TO SUIT 
20 FOR X=ST TO ST+14 
30 PEIHTX;PEEK<X) I HCXS<X)" -;H 
EX$(PEEK(X>) 
4 MEXT 
50 EXEC44539 
60 ST=ST415 
70 GOT020 



This will give you the address 
and the number POKEd there, 
first in DECIKAL and then in 
HEXADECIMAL. You will see 15 
addresses on the screen at once 
and when you press a key you 
will see the next 15. 

If you have CoCoOz 22 and 
you're keen enough to examine 
the SCREES PRIST program, you 
should find three lots of 5 
numbers which don't belong. So 
how do we get rid of them? 

Veil, with MLDATGEH this is 

relatively simple. Vhen you 

have the DATA version on tape 
CLOAD it, delete the offending 
numbers and adjust the addresses 
to which you are POKE-ing. Then 
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you can re-CSAVB It as a BASIC 
program or . . . 

CSAVEM"PMODEG" t 16000, 16329, 16000 

If you don't have a machine 
language data generator, you 
will need to almost start from 
scratch. This Is the way I 
would do It: 



GOTO10 

1 • ********* SCRHDATA ********** 

****** JOHANNA VAGG ********* 
3 SAVFUSSDAi^EHD'S 
10 REM CLEAR MEMORY IF NECESSARY 
20 FOR 1= 160O0TO 16329 
30 READ QS:POKEt,VAL( M &H"+Q$);NE 

XTI 

40 DATA SE.e.O.AF.fiD.O.BS.fle.E.A 

7, OD. 0,134.86,8^7,80, 0.A9.W, 80, 

A7, 8D, 0.A4 ,86, 10. A7,dE, 0.90,06*7 

,66, 12, 17, 0,90,86. IB, 17,0,97,86, 

E ( 17,0.92,6F,8D.0,8A ( DE,19.33,42 

,DF, 1B,A6 ) 84,A4,8D,0,7D,27,A,86, 

60 r AA,OD, 0,76, A7, SO, 

50 DATA 72,30,88, 10, lC.FE.e&.SD, 

0, 69, 5A, 26, E2.C6, 7, A6.8D .0.60.8A 

, 80, 8D, 60, 6F, 80,0,58,66,80, 0,53, 

AE,8D,0 1 51,6A,80,0,4A,27,2,20,C4 

.AE.SD.O^S.SO.l.AF.BD.O^F.ee.S 

D, 0, 39 , AE, 8D, 0, 37 , 86, 8, A-7, 8D, 0, 2 

B, 86,80, A7.8D, 0, 29, 6A.8D 

60 DATA 0,23,27,2,20 f 9E,86,D,8D J 

22.66. 10. A?, 80. 0, 15, AE.BD.0. 15.3 

O.e8,O0,AF,8D,0,E ( 6A r 6D,0,C,27,3 

, 16, FF, 80, 39,0,0,0,0,0,0^,60.80 

,0,5A, 27, 10, 10, AC.8D, 3,9,27, 56,8 

1,D,27,52,A7, AO.39,0,0, 10.9E, IB, 

31.3E, 10, AF.8D.0 

70 DATA 3F,31,A9,0,8E, 10.AF.8D, F 

F l EB,31 1 A9,FF,74 ( EE,8D,O,30 l EF l A 

1, 33, 4A.EF, 8D.0, 28, 34,2,86,67^7 
^0,86,23^7, A0, 66, AC, A7.A0, 86, 3 

2, A7.A0, 86,20, A7.A0, 86,22, A7.A0, 
86.1,A7,8D,0,5.35.2,A7,A0,39,0,0 
,O,3,E8,A7,A0,34,2,86,22,A7 

80 DATA A0,66,3B,A7, A0,86,0,A7, A 
C,EE,BD,FF,E8,10,AF,C4,A7,A0,A7, 
AO, 10, 9F, IB, A7.8D.FF, 09,35,2, 39 



Vhen you have your machine 
language PMODEO, CLOADJC It, 
CLOAD a program containing a 
picture DRAVn In PIODEO. Vhen 
jou have the picture you want to 
PRIST, press BREAK, then type 
IEV and EXEC16000. 

Bow LIST for a .eurprlee. Vhcn 
you RUB -this surprise, you 
should get a picture about 5- 5cm 
by 4 . 5cm. For fun, I suggest 
you try this: before you EXEC, 

P0KE16026.32:P0KE16161,32 

.. also try POKE-ing 48 in to 



those same locations. 

You probably wanted a bigger 
picture, right? Small ones are 
handy too - you can dress up 
letters - personalised 

etotionflryi t 

I did find the poor man's 
SCREEN DUMP program which will 
give a picture nearly four times 
the size of the other. It will 
also DUMP PKODE2 and PM0DE4. 
The poor man's DUMP takes a 
looooonnnggg time. (about 22 
minutes at 600 BAUD, so I 
suppose it takes about 11 
minutes at 1200 BAUD) The 

program was in RAY 84 RAINBOW. 



GOT05 

1 'PO0E MAN'S DUMP 

2 * ********** JOHANNA VAGG ***** 

3 SAVE"182DB;3":EMD , & 

5 PM0DE4;PCLS: SCREEN!. 1: REM BLAC 
K SCREEN FOR WHITE OH PAPER 

10 REM DRAV1BG HERE 

11 LINE<0, 0>-<255,0>,PSET 

1000 PRIRT#-2,CHR*<lB):PRlNT#-2, 

CHR*<27)CHRS<14):REM ELOSGATED G 

RAPHICS 

1010 FORY=OTQ191STEP7;PR1ST#-2,C 

HRS(27>CHR$U<5>CKR*CO>CHRS<112>; 

;FORX=0TO255:G=128:FORC=0rO6: IFi 

+C<192ANDPFOISTa,Y+C>THENG=G+2 T 

C 

1020 NEXTC:PRINTf-2.CHRS<3)::NEX 

TX:PRIHT#-2,CHRSQ3> ; I REXTY: PRIK 

T*-2,CHR$(30) 



You can buy faster Screen 
Dump9. Geoff Tolputt has one 
which will print a picture all 
the way across the paper. 

I have found other programs 
too, like BIGPRINT in JAN 84 
RAINBOW. Ve have made lots of 
signs for the doors and walls 
here with that program. I 

prefer the original one to the 
edited version on OCTOBER 85 
EAIN30V OH TAPE. 

There are more, but I've been 
too busy (writing far CoCo! ) to 
give there much use. Maybe I'll 
report on them later. 

A postscript I can add In 

August 1966: David Law's 

versions of BIGPRINT in August 
86 Cc-Co are great when used with 
half line feeds- and condensed 

print. Try using inverted 

commas, or lower case x ... or 
any character you like. 

August 1986 CoCoOz WDuld be 
well worth getting. Thanks 
David. 



SNOW 
FLAKE 



by Bernard Besasparis 




Any CoCo with ECB 

v 

THE? SAY THAT HO two 
snawf lakes are ever 

identicle so 1 thought I 
would examine this proposition 
and sure enoguh they were right. 
This little program builds 
random patterns resembling the 
crystalline structure of snow, 
I believe you would have to 

watch it an awful ling time 
before you saw the same design 
repeat itself- 

Tt should run on any size CoCo 
with ECB and is an interesting 
exercise in the use of DRAV 
strings and the ANGLE command. 

The high speed POKE is only 
necessary for the very 

Impatient. 



The Listing: 



O 



GOTO 10 

1 ■***"*** FLAKES ***********x**« 

*** BERNARD BESASPARIS ****** 
3 SAVB"219A:3":END'6 
10 CLEAR1 000 : PCLEAR8: A=RND( -TINE 
R) 

20 POKE65495.0 
30 PMODE4,5:PCLSl:COL0R0,l 
40 F0fiA=iT012:S$=STRS(RHD(8)):S$ 
=M1D$(S$,2) 

50 X*=X*+"U"+STR&(BN:D<A)>+ ,, H t, +Si 
+ M E , '+SS*"F"+S$+'*G"+SS 
60 NEXT 
70 FGRA=1I012:SS=STR$(RBD(8>):SS 

= «ID$(SS,2) 

80 YJ-Y*+"E' , +STR$(RHD(8)>+"U ,, -tS* 

+*■ R" +S4+" D" +SS+" L" +SS 

90 NEXT 

100 FORA=0TQ3:AS="A M +STK*Ca> 

110 DRAVAs+"BM128 l 96;XXV 

120 DRAWA$+"BM128,96;XY*;" 

130 HEXT 

140 PC0FY5T0 1 : PCOPY6T02 : PCOPY7T0 

3:PCOPY8T04 

150 FM0DE4.1; SCREEN 1,1 

160 XS="":Yi= M ":GOTO30 



o 
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MC-10 

This is a computer copy of 
the TV gam Id which you're 
the contestant. Of course 
by the second or third run thru 
the answers win be obvious and 
top narke scored. To QvercQBQ 
this the listing should be 
adjusted by adding a ae*r 6erUs 
of questions sad answers. 

The Listing SALB: 

o F.EFI mftiHini tt 1*1 1 tin* 
i rem uwiii.rir.THE.ctimiRYii 

2 PEN ** OCTuTlER. l?86 ** 

3 RFI1 tt CtiHPU^fcD.BV »I 

4 REM %t DftVlD. J. HILL tt 

5 REH Xt AGE-l? fn 

6 PFH TtltJtWIIttiMiMHIll 

7 CLS© 

6 C0T0900O 

9 rplHli?3?,-*ri:1f irst rovr«iMM" 

18 F0R»'=9Tnift0iOMirXTR'PRIIII" 



11 C-20 PR| in i?; •*-.£, •• sco 
Rt"* ia iC'PPIII1P<t.-UHRT LETTER REPR 
FftRMTS io III i-miihii HUMERM.?* 

12 INPUTNJ 

13 lFHt-»H*THEHl? 

14 IFM*0"X n TH£IU9 

i» GosuEtmecin 

16 G0TO21 

I? COSNB 10000 

18 GOSUB 11006 G010I5 

19 G0SUBIOO0P 

20 PftlHTWS." INCORRECT 

ITS ::- iftplUHOSB, IP'L-C-5'PRJN*S2 

Sfij " SC0RKb"iC»G0TP13 

21 GOSUBlfrpon 

23 prini«-o."wiint is 9BMUEU clehf 

n? phi uriMi - 

i*4 i mo i in 

£5 IFM*»"Wifek twmih-thi:h£9 

2€ H-HtO"NARr TWAIUMKHSI 

/•? GosuBieeoo 

29 GOS'.'BIOOOO 

36 GOSUBl looo '(.rnr»R7 

31 G0SN610O00 

32 PRINT 832* " INCORRECT 

IT'S HftPK TWAIN" SOUND50, 21 >C 

-c-s 1 pp mi wzze , ' SCORE* 

' JCGOT027 

33 GOSUB 10066 

35 PRlHTCfO.* "HURT ME9 DINOSAUR M 
ERH" 

36 IHPUTHt 

37 IFIU="TERPIBLF L 1 2F»PD"THEN«U 
36 |FN*<>"TERRIBLE L IZARD"THEN43 

39 COSUB 1OO00 

40 GOT 045 
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by David Hill 



•11 GOSNBIOOOO 

42 G0SU6I 1 000 C0TO39 

4 3 GOSHEN 6 BOO 

44 PR1HT932,- INCORRECT 

ITS TERRIBLE LI2RRD" « SOUUD50.25 

C=C-5 'PRlllTe?56." SCOR 

E-"iG'G0T03? 

45 G0SUB100O0 

46 PP]HT&0,"HHEN UflS THE RED BAR 
ON KILLED" 

4? iHRUTNt 

49 !FH**'1916 h THEM52 
45* IFHJO" I9IS"THEH54 

50 COSUB 10000 

51 GOT 056 

52 GOJ-UBJOOOO 

53 GO&UBIIOOO G0TDS6 

54 G0SUB10000 

55 PRIine3H. - INCORRECT 

ITS I* 10" S0MHP5O.25:C=C-5<PRll| 
H'256. ■ SCOPE-" tC< COT 05 



56 GORIBIO0O0 

57 PRIII1BB* "HdH MflNY KEYS PiPE ON 
n PlftllO" 

58 IHPUTIt* 




59 IFH*'-B8-1HEN63 

€6 IFiiK >"66"THEH65 

61 r.OS-UB 10000 

€2 G0T067 

S3 COSUB 16.060 

64 G0SUBiieO0;G0TO61 

65 gosub 10000 

66 frint932 . " incorrect 

IT'S OS" 'S0UI1D50. 2:5 'Ct-C-Si PRINT* 
256. - SCORE* ";C G0IO61 

67 GOsueieeoe 

66 RRINT*0.-»»r*£Fcci al *10 «ues 
tioutttf 

69 F0RR = eip|6QGNJEXTR'PRIMTee, B M 
HO HOPE THE 1ST S1ERH ENGINE" 

70 IHPUTNf 

71 1FH*="HRT TYLER-THEN75 

72 IFHSO-HRT T YLER" THEH77 

73 G0SUP10006 

74 GOT 079 

75 CO? UP 10 000 

76 PR1NTG32." CORRECT ■* 

S0VMP2 00 . 1 ' C=C 1 1 1 RR I NT* ?f,fi . " 

SCORE*" *C'G0T073 

77 COS UB 16 600 

78 PP1IIT922. " INCORRECT 

ITS WAT TYLEP"'SOUHD56.25 G 

GT079 

79 G0SUB16606 

BO PRINTm, "UttroiUKl tUOtm*) 
F ORR-Q T 1 000 - ME K T R PR I NT I? 32 , -' 

61 PPINTeO. "WHO INVENTED LOGRRIT 

NHS" 

OS INPUTN* 

03 IFHJ--J0HN MfiPItR-'THElie? 

84 IFHIO" JOHN NftPIER"THEN89 

B5 GOSUB1000O 

&6 GOT 091 

07 GO SUB 15396 

SB GOSUBIIOPB 'GOTOBS 

69 GOSUblOOOO 

90 PRlNTftSa. * INCORRECT 

IT'S JOHN IfiiPIER" SOUIU'50,25 

C-C-5' PRINT R256," SCORE 

■"iC GO 105: 5 

91 PRINTPO-'NHO WROTE PETER pRN" 

92 lNPOTNt 

93 IFN*3-jflMES BRRRIE"THEH97 

94 IHH-O-JFiHES BNRRIE"THEH99 

95 COt-UPlrtOOO 

96 GOT 01 Ol 

97 C0SUBIB0O0 

9S G0SOB1 1000 G0TO95 

99 GOsueiBooa 

100 PR1NTU32,- INCORRECT 

•IT'S JAMES BHRRIE" S0UNPM>»£5 
'C-P-S ^PPIIIT92 5€. " SCOR 

E=".CiGOT095 

101 PPINT*0,''WHfiT ftRE LUNGS FOR" 
102" IHPUTHt 

10? IFHf-'6PXnTHING"THEN107 

104 irilK-'I:REPTH|NG"THEN109 

105 GOSUB 10000 
166 GOTOl II 
107 GO^MB 10000 

109 e0SUBU0B*»6BTOieS 

109 GOSUB 1*0 BOO 

110 PRIN16::?," INCORRECT.,.. 

• IT * s BREfi THING" ' SOUNI'50 

. 25'C-C'-5 PRIHTe25$. " S 

COPE = -) C- GOTOl 05 

HI PR1H18Q. "HURT HOT I ON C? I SCOVE 

red flueTpnuft- 

112 INPUT lit 

113 IFHte-HOLl .RHB'TMEHll? 

I 14 IFNJ<>"N01LRND"THEN1 1? 
1 15 G0SUB1BBBB 
1 16 G0T0121 

1 17 gosupioooo 

110 6Q£UB11BB0eGOTO115 

i 19 gosupioooo 

i£o mmnt** incorrect.... 

.IT'S HOLLAND- t SOUND 50 . 25 >C-C-7* 

PRXNTt£W*" SC0RE = -,CG 

010 1 15 

121 PRUITfrO- "HURT'S AUSTRALIRS l 
RRCEST CITY" 

122 INPUTIH 

123 IFIU-"SYDNEV"THFNI27 

124 IFN*<>-SYDHEY"TMEN12*t 
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125 GOSUB1008O 

126 GOT0131 

12? gosub 10000 

1 29 gosub 1 1008 -goto 1 25 

129 GOSUB 1 08OB 

136 PR1MT*32." IHCORRECT... . 

-ITS SYfcHEY" ' SOUHD50 , 23< C" C-5 • P 
R1MT«256. - SCORE"" ;C'GO 

TO 125 

131 PRlHTt32."tt**iP»cial *20 lu 
*itl©*-'FORR»0TO1580> HEXTR 'PR INT 
•32. ■ 

132 PRIHTWi "WHFIT IS THE VICflR 
F CHRIST" 

133 IHPUTH* 

134 IFH»-"THE POPEMHEM138 
133 1FN«<>"1HE FOPEMHEH140 

136 GOSUB 1B90Q 

137 G0TO142 

136 GOSiiBieeoe 

139 PRINT632," CORRECT " 

■ SOUND208 ,19' C-C+26 ' PR I NT6256 * ■ 
SCORE«";C' GOT0136 

Me gosub 10000 

141 PR1HTM2," INCORRECT.... 

-IT'S THE POPE" SOUHD50,25'GOTO1 
36 

142 PR I HI $32. -*t**Pownd three*** 
*■ FORR^eTpiee© ' HEXTR' PP1HT 632. " 

143 PR1HT96. "WHERE RRE THE RHDES 
MOUHTRIHS" 

144 IHPUTN* 

145 IFHta-SOUTH ft-MERlCfl'THEHMS 

146 ifh»o"s0»jth rmer1ch"theni 51 
14? gosubioooo 

146 G0TO153 

149 GUSUB10008 

156 Gd6UBli60ft'GOTOI47 

151 cosubioboo 

152 prim §32," ihcorrect 

.it's south america" '30und50. 2 
5 ■ c-c-5 * pr1 ht*£5$, - sco 

re-";ccotoi47 

153 PRlHTtO. "WHERE IS THE TRJ lift 
HHL- 

154 1IIPU1M* 

155 IFHt»MHDIfl"THEH159 

156 1FN*C >" HID I R" THEN 161 

157 Goscie'p-m 

158 GOT0163 

159 Gosveieeoe 

168 gosob1 18o0'gotqi57 
16) gosub 10000 

162 prihts32." -ihcorrect 

.it's lndir"=souhd50.25c=c-5 pr 

IHT»256." SCORE*" iCGOT 

0157 

163 PRIHTC0.-HHRT STRTE HHS THE 
GRAHD CRHYOH" 

164 INPUTHS 

165 IFH*-"ftRI20Hft"THEH169 

166 IFHJO-RRIZ0MR-THEH171 

167 COSUB 16008 
16B G0T0173 
16? GOSUB 18800 

17B GOSUB110O0 G0T0167 

171 GOSuBiceee 

172 PRIHTC32." IHCORRECT. . . . 

. IT'S RRI20Hfi- iSOUHt»50.2S<C='C-S> 
PRIM0.256. " SCORE="iC'G 

0TO167 

173 PRIHT«0/"IS THE TflRANTELL R 
DANCE OR SONG" 

174 IHPUTH* 

175 1FH»*'DRHCE*THEH179 

176 IFHi<>"DRHCE"THEN18l 
17? GOSUB 18888 

176 G0T0183 
179 GOSUB18800 

10© G0OUD1 1OO0'GOTO177 
18 1 GOSUB 10000 

182 PR 1NTS32. M IHCORRECT. . . . 

.IT'S fl M»HCE"'800NDS8*25»CfC-5i 
PRIHTB256.- SCORE--;C>G 

0T0177 

183 PR1NTSB.-WHRT HERO LIVED IH 
R FOREST" 

|84 INPUTHf 

185 IFH»-"ROBIM HDOD" THEH109 
166 IFN*O"R0BIN H00D"THEH191 
187 G&SU&1O060 



iy8 GOT 01 93 
189 &OSUD10O00 

s90 GoeiieneoO'GOT(iie7 

191 COSUB 18008 

192 PRIHT632r" INCORRECT. - - . 

.IT'S ROBIN HOOD" ■ SOUMD50 .25 - C 
-C-5 -PRlNTe256." SCOKF.= 

*iC'G0T0187 

193 PRINT332. "****! *st 4u*s.ti©r«J 
m" <F0RR"8T01499'IIEXTR 

194 PRINT 632." 

195 PRIIIT032, "****»P«ci*l *40 *u 
«s.ti on**:**" -■ FORR»8TO1500 ' HEJ'TR 

196 G0SL1B 10000 

197 PR I NT e0, "WHO WROTE JUNGLE BO 
OK* 

198 IHPUTN* 

199 IFMS»"RUDYflRD KIPLING"THEN2B 
3 

200 IFH*<)"RUDYRRD K1PL1HG"THEM2 
05 

281 GOSUB10000 
262 G0TO267 
3:03 GOSUB100O0 

204 PR1HT&32#" CORRECT....." 

iSOUNOZOBj 1 8'C-C+4©'PRIHT§256/ ■ 

SCORE"" i C' GOTO201 

205 GOSUB1000O 

286 PRIWC32. ■ INCORRECT. . . . 

.IT'S RU&YARD ICIPLlHC" 'S6UH(»5© . 2 
5GOT02C1 

207 FOPR=0TO1500:HEXTR'CLS 

208 PR1HT8236, '"Sane ov*r" 
203 FORR=0TOI500'NEXTR 

210 PRIHTBZW," »our *cor t 
was "iC 

211 FORR = 0TO2O08'llEXlR 

212 PRIHT8288," sour >. wit" 
;C/165tl0e;"5:" 

228 FORR=8TO6500'HEXTR-CLS 

8939 END 

9©&0 FORB=6T063 I SET< B . O. 3 > ' HEX! B 

FORB-0TO31 :SET<63.B.3>HEXTB>F0 
RB=0TO31 <SETC0,B,3 > HEXTB ' FORB-6 
T063'SET<B.31.3>HEXTB 
90&1 £ET< 1 , 1.3 >»SET<2. 2,3>:SEK3 
.3, 3>:SET(4.4,3)iSEK5.5.3>'SETC 
6#6» 3 )^SEUl,3e/3> ! $ET< 2/29/3 >'S 
ET< 3.28.3) >$ET<4. 27, 3> 
9002 SET<5.26. 3 > • SET. 6/ 25- 3 >' SET 
'62. 1.3)'SET(61,2.3)-SET<60/3v3) 

SET< 59 . 4 , 3 V S ET< 58 . 5 , 3 > SET< 57 . 
6- 3 > -SEU62. 38,3 > ' SET< 6 1 , 29 - 3 ) 
9063 SETC6O.20.3)'SET<59.2?.3 )'S 
ETC 58 , 26 , 3 ) £E T< 57 * 25 , 3 ) ■ FORB = 7T 
056'SET<B,7,3>'HEXTB'F0RB-7T024- 
tET<56,B.3>HEXTB 
^•004 TOR0-7T024 ' CC T< ? . B. 3 >• HE XTB 

■ F0RB-7T056 . SET< B . 24 . 3 > • HEKTB 
9805 FORR=2T05'8ET< 13/R/4 )'NEXTR 

SET<14,2, 4>'SET< 14,5.4 >< F0RR-3T 
04 'SET< 15.R.45'NEX1R 

9006 F0RR-2T05-SETC 17. P. 4 >«HEXTR 
FORR D 2T05'SET< 19.R/4 >'NEXTR'SET 

'.18.2. 4) SETC 18.4^4 }• F0RR«2TO4 • S 
ET(21,R/4 >'1IEKTR 

9007 F0RR=2T04'SET<23.R,4>'HEXTR 
| SET(22,5»4 J'F0RR-25T027' SET< R.2 
.4)'NEXTRtF0RR*25T027'?ET<R,5.4) 

HEX1R'SETC26»3,4 )' EETt 2S/4> *? 

9008 F 0RR"2T05 • SE T < 29 1 R/ 4 ; ' HEXTR 
SET<38.2.4) = SET< 38. 5 .4 >- SETC 30. 

5. 4 >-SET<31 ,3 j 4 )' SET< 31 ,4.4 ) 

9009 P0RR-2T05 SET< 35.R, 4 ) ' NEXTR 
F0RR=3T04'SET<36,R,4>'NEXTR^F0R 

R"2T05SET<37,R,4 > - HEXTR- F0RR*39 
T041 SET'R.2-4>^HEXTR 
901B FOKR^TOirSEUR^O'NEXT 
P F0FR=3TO4 SET<4 0.R, 4)<HEXTB<F0 
RR-2T05 SET( 43. R. 4 > ■ NEXTR F0RR=4 
::T045: SET<R,5.4>'HEXTR 

9011 F0RR^2T05iSET(47,R,4>HEXTR 
F0RR=4?TCl49'*:ET(R.5,4 > NEXTR 

9012 F0RR-I5TO17- SETC R . 26, 4 ) ' HEX 
TR'F0PR=19T0?1:SE1(R/26.4)'NEXTR 

F0RR"23T025« SETC R, 26, 4 >• NEXTR -F 
».|RR=27T029'SETCR. 26.4 > NEXTR 

9013 F0RP*31T033' SET< R, 26 . 4 > HEX 
1R.F0PR»35T03?>SEUR,26,4>' NEXTR 
>F0PI>=5?T<.>4! i SFT»!ft,2e,4>-NEXTR^F 
0RR=43T045'SETCR, 26,4 )» NEXTR 

9014 SEK 15,?r«4>'«;ET<17,£7»4)'5 



ETC 19.27.4 )-SEU 21,27/4 >'F0RR=23 
1025'SETCR.2?,4VHE>OR'SETC 27.27 
-4) 

9015 F0RR=31 T033 i SETC R. 27. 4 ) < HEX 
TRSETC 35. 27,4 >^SET< 37,27,4 )'SET 
<40, 27,4 )'SETC 43.27.4 >'F0RR"15T0 
17'SETCR.28. 4 > • MEXTR 

9G16 SET<19,2e.4)'SCTC20.2B,4>»S 
ETC 23.28, 4)' SET<29. 28. 4 >■ SETC 31 , 
28,4 )- SETC 33. 28, 4)' SETC 37. 28,4)' 
SETC 40, 28. 4 5 ' SET< 45 . 28/ 4 > 
9B17 SETC 15/29, 4> SETC 19. 2&.4>'£ 
ETC 2 1 , 29, 4 ) ■ F0RR»23T025 « SETC R. 29 

,4 J'HEXTR'F0RR-27T029-SETCR,29-4 

>• MEXTR 

9018 F0RR-31T033'SETCR-29.4)'NEX 
TR i SETC 35, 29, 4 ) ■ SET < 37 , 29. 4 ) ' SET 
C40, 29.4>>FORR=43T045 SETCR.29,* 
>=HEXTR 1 SET<47/29/4) 

9019 SEK 49,29. 4>'SETCSl. 29. 4>'S 
ETC53.29,4>'SET<55,29,4)'SETC57. 
29,4)<FORX«0TOI 000 ! IIEXTX 

9828 FORR-9T011 ■ SETC R, 9. 2 ) ■ NEXTK 
.eETC9,10,2)FORR J 9TOl 1 'SETCR- 11 
.2)«NEXTR'SETC 1 1 , 1 2, 2 > ' F0RR=9I 01 
|iSETCR,13,2><NEXTR 

9021 F0RR=13T015'SETCR.9.2>'NEXI 
R'FORR=9T013'SETC 1 3,R, 2 > ■ NEXTR F 
0RR-9T013-SETC15.R. 2 > ' HEXTR i SB Ti 
14, 11/2 > 

9022 FOPR=9T013 SETC17.R.2) NEXT 
R'FORR"17T019'SETCR.13.2) HEXTR^ 
F 0RR=21TO23 ■ SETC R» 3 . 2 ) ' NEXTR ' F OR 
R=2IT023'SETCR, 13,£>HEXTR 

9023 FORR-9T01 3 i SETC 30, R . 2 > ■ NEXT 
R'FORP=S10l 3 SETC 3E,R, 2 > HEXTR 'S 
ET<31,9.2VSETC 31,13,2> 

9824 rORR=9T019-SETC21 ,R,2 WIEXT 
R' SETC 22, 11 -2> 

9025 F0RP"9T013*SET , :34,R ( 2>HEXT 
R ' FORR- 34T036 ■ SET( R, 9 . 2 ) • MEXTR I S 
ETC 35. 1 1,2>'F0RRM4T04 6>SEUR.9, 
2)' HEXTR 

9026 FORP=9T01 3 i SEJC 45 . R . 2 ) « HEX! 
ft'F0RR-=91013'SET<4©.R,2)'NEXTR«F 
ORR=9TO13'SETC50.R,2)' NEXTR = SE1C 
49,11,2) 

982 7 FORR=9T0 1 3 « SE T< 52 , R , 2 ) > NEXT 

R'F0RR=521054-SETCR,9.2)'HEXTR'F 

0RR"52T054- SETCR, 1 3. 2 > -NEXTR ■ SET 

C53. U>2> 

9828 SETC9/.22,2)'SET< I 1,22.2) ' SE 

TC 1 3,22,7) = SET< 15, 22. 2 > ' FORR= 1 7T 

II1S>-$ET<R,18.2><NEX1R>F0RR=1770! 

9'SET<R.22,2)'IIEXTR 

9029 FORR= J8T022 <5ET<17,Ri2>' HEX 
TR » FORR-2 i T023 < SET C R, 1 8. 2 > ' HEXTR 
•FORR=21T023^SET(P.22.2> -MEXIR'F 
0RR-16T022 -&ET<£1 . R. 2 > -HEXTR 

9030 SETC £2. 20.2 >• FORR-1BT022 ' SE 
1 < 25 . R . 2 V MEXT R ■ FORR* 18T022 « B EK 
27.R.2)' NEXTR SETC 26, 18,2)<F0R5= 
18T022 SEK30,R>2 5 NEXTR 

9031 F0RR*29T031 -SETCR/ 18.2)' HEX 
TRF0RR=ieTQ22'$ET<33.R.2>' "EXTR 

FOPR=18T022^SETC35.Rv2)'HEXTR.S 
ET<35.22,2> 

9032 SET<34,22,2>F0RR"37T029'SE 
TCR, 18,2 V HEXTR' FORR" 1BT022' SETC 
3?.R.2):N£XTRtF0RR=2!TG22:SET<39 

.R.2?' HEXTR 'SETC 39, 19.2 > 

9033 SEU3P.29,2>'F0RR-ieTQ2£'SE 
TC 43.R-2)- HEXTR i FORR=18TO20 ! SETC 
41 ,R/2> 'HEXTR 'F0RR-41T043' SETCR. 
22.2)' HEXTR. SETC 42. 20. 2 > 

9034 &ETC38. 18/2) SETC39. 18-23'S 
ETC 45, 22,? >■ SETC 47. 22, 2 >' SEK 47. 
22,2)' SETC 49,22,2 ) 'SETC 51 ,22.2V 
SETC53.22.2) 

9B35 SOUM'258, 10 
9036 GOT09 
10080 PRIHT80. - 



■-RETURN 

11006 f'RlMT*22." CORRECT 

. " SOUHD2P0. 10.C-C*5'PRIHT0256." 
SCORE=" iC=RETURH 
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BH*I The Tandy 1 



III 




The 
Computer 
For Home 

and 
Education 



> Includes 
Monitor and 
DeskMate 
Software 



Save $ 1050 



Reg 
2348.95 



$ 



1298 



Rear View — External Connections 




SPECIFICATIONS 

Microprocessor Intel 8088 processor. Clock speed, 4.77 MHz Qperalinn 
*^,f^ ' n , c1udes W |c, p*o"'aaa«nceflMa i DOSZ iiwllh BASIC Memory' 
128< RAM expandable lo 640K. Keyboard: BOasw wailnhESi SH 



Keyboard: 90-key sculptured, including. 
SSKSrSB^SP' 9 P ro p ramm «»l« Special Function Keys Video 
Dliplay: Optional hi h. resolution, non-jlaro 30.48cm monochrome ?££& 
or color monitor 80 or 40 characters pe. line by 25 lines High-resoTutic-n 

nfflSZPn!!?£»K °L» p, ?' C8 (0'aciayino 8 colore wilted (rom 16). 
SHiinTTS'wl Z « lded ' ^oud 1 " aensity, 360K formatted) 

thrv^ne i3-34cm mini-Floppy 46 truck* per men. Internal £* pane Ion - 

Strt aSS w sterna! Connections: (2) Standard parallel printer 

rZJ^n^,kx^ Bm T■^} Ua ^ ,0< ' nad ' ,i '' o, i«"Juy*'cM.(siHi»di 
Color Monn or. (8) Compoalle video anc aud lo. Power 240 VAC 50Hi 



This home and education computer package offers not onlv 
the exceptional capabilities of the Tandy 1000 IBM- compati- 
ff! Ur.T: i! a,s ? Inc,udes DeskMate application software and 
the VM-Monochrome Monitor! With 128k RAM expandable to 
640k and a clock speed of 4.7MHz. Phospor green VDU 
d.splays 80 x 25 text and 640 x 200 graphics. 25-1000*8-321, 

DeskMate Multi-Function Disk Software 

Six excellent application on one disk: Calendar has adiarv and 
reminder alarm. Text lets you edit and compose texts with 
ease. Filer compiles and retrieves data. Worksheet translates 
intricate calculations to solutions. Mall for intra-computer 
communications. Telecom; using an optional modem, the user 
can send/receive messages via phone. 

•IBM - Registered Trademafk, International Business Machines Corp. 



Tandy's Low-Priced High 
Performance Printer! 



399 



95 



DMP 106. IBM Compatible! This Bi- 
directional printer Is idealfordata processing 
and general-purpose use. Prints 80 upper and 

lower case characters per line (8 x 9 matrix) at 
43 lines per minute at 10 characters per Inch. 
Prints 80 characters per sec. 28-2302 




Color Computer Accessories 



Deluxe Joystick 
AQ95 

m T9 EACH 

A. Our Best! For ac- 
curate, speedy cur- 
sor control. 26-3012 






Prlntvlew Ruler 

995 



B. For enlarging 
print. With standard 
measurements. 20-1313 



Color Mouse 

79" 

C. Adds speed and 
ease to games 
and graphics crea- 
tion. 26-3025 



Flowchart 
795 



D. Template makes 
all your preproduc- 
tion easier. 28-1312 



Joysticks 

*J"T PAIR 
E. Budget priced 
joystick for fast 
360° movement! 

2630M 



Tandy V21 23 




Colour Computer Software 



A.'™» 



Enjoy a whole new world In communication! Our 
V21/23 modem allows access into Telecom's Viatel for 
a host of convenient services. Also links to bulletin 
boards and other videotex services. 300 bits per 
second or 1200 bits per second receive, 75 bits per 
second send, 240V AC at 5 watts. It's fully Telecom 
approved and is so easy to Install! With excellent value 
like this you wouldn't want to miss out! 26-9*04 




A. Donpan. Experience Don pan's return to Donpan 
Island. Avoid the crazy crows and saw sharks. If you 
successfully get "home" you'll become "King". Req. 
Joysticks, C0C0 2/3. 26-3097 49.95 

B. Flight Simulator 1. Sit back and prepare yourself for 
some exhilarating high-tech, excitement! Learn how to 
take-off, land, the basics of manual control and more! 
Req. 64kdisk drive CoCo2/3and joystick. 26-3106. .69.95 

C. Color Computer Learning Lab. An excellent self- 
teaching standard color basic programming course. 
Includes 8 lessons as well as a 200 page manual ! Req. 
cassette recorder and C0C0 2/3. 25-3153 89.95 



Nearly 
350 Store* 
Australia 

Wide 



WE SERVICE WHAT WE SELL 



Available From 350 Stores 

Australiawide Including 

Tandy Computer Centres 

or Order On VIATEL *64261 4# 

Independent Tandy Dealers nay not be participating tn this ad or have every item advertised 
Price* may also vary at individual Dealer Stores 




0< 



YOU'VE BBARD of Hal leys 

Const. Just when you 
thought it was safe to 
look at the Gky again here cones 
"The Pendant of Death". 

The star date is 2967 A.D. 
The world is at a crisis point. 
The evil master of wizards has 
created a plot to destroy the 
earth, so his hone planet can 
rule the galaxy. 

His new weapon is the Pendant 
of Death which be stole fron the 

S.A.S. , 'The Sacrad Artifact 



Society' , and he is planning to 
use this to destroy the earth. 

This pendant Mas forged nearly 
8000 years ago in the turmoil of 
the 'Great Conet of 500C B.C.' 

You mission is to take a tine 
capsule back to the past when 
the pendant was forned and 
destroy In the fire fron which 
it cane. 

Intelligent Reports state that 
Anarchll, the evil naster of the 
wizards has gone back in tine to 
do his darst.ardly/ pl»r hack In 



those tines when the pendant was 
more powerful than it 1c now. 
Good luck. 

Instructions: "Pendant of 

Death" is a 32K Adventure that 
uses options for you to explore 
the surroundings. It has severol 
fight scenes that add to the 
programs overall effect. It is 
my first attempt at writing an 
adventure, so don't expect too 
much. 
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The Listing: 



1 * ******************-*******»*** 

2 • ***<**THE DEATH PEHDAHT****** 

3 '********BY VAYHE KELY******** 

4 ' ****t**CREATED 14/4/87******* 

5 ' ******* ****** ********* ******* 

© GOTO 10 

7 SAVE" 227: 3": END' 7 

8 END 

10 PCLEAR4:CLS3:PRINT$72,"THE DE 
ATH PEHDAHT"; !PR1KT©234 ( "BY WAYS 
E KELT"; : PR I HT*384," INSTRUCTIONS 

<Y/H>";: IHPUT YHS 
20 IF YBS="Y" THEH GOTO 2610 
30 IF m="H" THfiH 50 
40 GOTO 10 

50 CLS; PRIST: PRIST" GOOD LUCK AS 
D 00 FORTH AND RECOVER THE S 

IBISTES PEHDAHT.": FOR Y=l TO 920 
:SEXT 

60 VS=10:TG=10:DH=12: AN=25:YS=15 
: X=4: "rfLS=" LIVE": US-" LIVE" : DLS=" 
LIVB":ALS="LIVE":HS="YOU ARE DEA 
D" ! PD»=*'YES" tSC4=" YES" 
70 TS="Y0U ARE IS A LUSH GREEN F 
OREST. BIRDS CHIRP LOUDLY AND TH 
E SUN SHIHES DOWI OHTO THE TREE 
TOPS. ■ 

80 DIK OS <X): FOR X=l TO 4 -READ O 
S<I> :KEXT 
00 DATA IROH SVORD.BRONZE SHIELD 

.KAGIC RIHG, SCROLL OF DEADLY DOO 

M 

100 ' AREA # 1 

110 CLS: PRIST: PRIST T$: PRIST" YOU 
CLAHBER OUT OF YOUR TIKE CAP 

SULB ASD LOOK AROUBD. " 

120 PRIST: PRIHT"OPTIORS":PRINT" 
(1> GO SOUTH 
<2> 1BVEHT0RY" 

130 IHPUT R:OB R GOTO 150,150 

140 GOTO 110 

150 GOTO 180 

160 PRIST' YOU ARE CARRYING:" : FOR 
X=l TO 4:PRIBT OS (X> : NEXT: EXEC 

44539: G0TO110' 

170 ' AREA # 2 

180 CLS: FRIST TJ: PRIST" YOU HEAR 

A FAINT GURGLING SOUHD IB THE DI 

STANCE." 

190 FRIST: PRIBT"OPTIOBS 

U) GO RORTH 
(2) GO SOUTH" 

: IBPl'T R:OB R GOTO 210,220 

200 GOTO ISO 

210 GOTO 110 

220 GOTO 240 

230 ■ AREA # 3 

24 CLS: PRIST TS: PRIST" THE GURGL 

IHG SOUND STARTS TO GETLCUDER AH 

D LOUDER ASD THEH ";:FOH Y=l TO 

420:8EXT Y: PR1HT"ST0PS. YOU SEE 

A SIGH HAILED LOOSELY TO A TREE, 

ii 

250 PRIST: PRIBT"OPTIOSS 

(1) BOETH 

(2) EAST 

<3> READ SIGH" 
260 IHPUT R:OS R GOTO 180,300,28 


270 GOTO 240 

280 CLS: PRIST: PRIST: PRIST* THE S 
IGN READS: 

B 



EVARE OF THE CRYSTAL LAKE I 

TS BEAUTY BELIES ITS TRUB D 

AHGER. THE GUARDIAH ":FOR Y 

= 1 TO 1500: HEXT Y:GOTO 240 

200 ' AREA f 4 

300 IF VLS="LIVE" THEM 350: IF VL 

$="DEAD" THEH 310 

310 CLS:PFIBT T»: PRIHT"THERE IS 

A LARGE CRYSTAL CLEAR LAKE." 

320 PRIHT:PRIBT"OPTIOHS 

(1) GO BORTH 
C2> GO EAST 
(3) GO VEST" 
330 ISPUT R:OH R GOTO 600,960,24 


340 GOTO 310 

350 CLS: PRINT T»: PR I HI" ALSO THER 
E IS A LABOE CRYSTAL CLEAR LAK 
E.":FOR Y=l TO 900:REXT Y: PRIST" 
SUDDENLY THE GURGLING RESTARTS 
ABD REIMODOL THE VATER SERPEBT 
APPEARS ABD STARTS TO ATTACK." 
360 PRINT:PRIBT"OPTIOHS 

(1) RUB NORTH 
<2> RUB EAST 

(3) RUH VEST 

(4) FIGHT REIM 
ODOL" 

370 INPUT R.OR R GOTO 600,060,24 

0,390 

380 GOT0350 

390 CLS: IF VS=<0 THEN 560 

400 IF YS=<0 THEN 570: PRIST: PE IS 

T" F I G H T 1 H G" 

410 PRINT:PRI»T"YOUR STREHGTH :" 

;*s 

420 PR3KT"VATER SERPEST'S STREHG 
TH:"[VS 

430 PRIHT: PRIST" VHERE DO VISH TO 
ATTACK THE VATER SERPEBT ": 

PRINT" (1) HEAD 

£2) STOKACH 

C3> BACK 

(4) TAIL" 
440 INPUT FS:T=RHD(5): IF T=5 THE 
H GOTO 510: IF T=l THEH 550 
450 OB FS GOTO 470,480,490,500 
400 GOTO 390 

470 T=SND(3):PRIBT"YOU BRIHG YOU 
R BLADE DOVS OHTO REIHODOL'S HE 
AD ABD HE LOSSES P, ;T;" STAHIHA P 
TS":VS=VS-T:GOTO 580 
480 T=RND(3>:PR1NT"Y0U SLASH OPE 
H THE REIHODOL'S GUT AHD HE RO 
ARS IB PAIH. YOU TOOK r, ;T;" ST 
AHIBA PTS AVAY FROH HIH.":VS=VS 
-T:GOTO 590 

490 T=RBDC3>: PRINT" YOU CRUNCH TK 
E BLADE DEEP IHTO HLS BACK AND 
TAKE ";T;" ST AH ISA PTS V1TH IT": 
VS=VS-T:GOTO 580 

500 T=RND<3): PRINT" YOU THRUST TH 
E SVORD IH TO THE VATER SERPBHT 
S TAIL AHD HE HAS LOST ";Tj" ST 
AHINA PTS" :VS=VS-T: GOTO 580 
510 T=RHDC3):OH T GOTO 520.530.5 
40 

520 T=RHDC3>:PR1BT"THE SERPEBT S 
PRAYS VATBR THAT BURNS YOUR SK 
IH. YOU LOSE "(T; M STAMIHA PTS P 
ROH lT";TS*YS-T;GOTO 580 
530 T=RSD<3):PR1HT"REIH0D0L THUH 
PS YOU ACAIRST THB ROCKS VITH HI 
S TAIL AND LOSES YOU";T;" STAM 
IRA PTS" :YS=YS-T: GOTO 580 



540 T=RBD(33;PRIBT"REIMODOL RELH 

ASES A DEAFEBUC ROAR THAT HUR 

TS YOUR EARS. THIS LOSES YOU "jT 

; M STAMIBA PTS" : YS=YS-T: GOTO 580 

550 PBIHT"YOU BOTH HISS IH YOUR 

ATTBKPTS" : GOTO 580 

560 PRIir'YOU HAVE DEFEATED THE 

VATER SER-PEBT":FOR Y=l TO 700: B 

BXT Y:VLS=" DEAD": GOTO 300 

570 PRIHT"RBIHODOL HAS KILLED YO 

U HE IS BOV EBJOYIBG YOUR TAST 

Y HUHAH FLESH FOR HIS REVARD." 

: GOT02870 

560 FOR T=l TO 1200: BEIT: GOTO 39 



590 ' AREA # 5 

600 CLS:PRIBT"YOU ARE NEAR THE E 

GDE OF THE BAHDU FOREST. ABE 

AD LIES THE GATEWAY TO A PLA1H 

I HAT IS HAS VERY FEV TREES." 
610 PRIHT:PR1HT"0PTI0NS 

(1) GO HORTH 
(2> GO SOUTH" 
620 ISPUT R:OH R GOTO 650,300 
630 GOTO 600 
640 ' AREA # 6 

650 CLS:PRIST"YOU ARE ON A GRASS 
LABD PLAIS. THERE ARE FEV TREE 
S AHD HO SIGNSOF CIVILISATIOH AR 
OUBD. YOU DECIDE TO REST FOR 

A VHILE ABD HAVE SOMETHING TO 
EAT- YOU CAB LEAVE VHEB YOU ARH 

READY." 
660 PRIMT:PRIHT"OPTIOBS 

(1) GO SOUTH 

(2) GO EAST" 
670 INFUT R:ON R GOTO 600,690 
680 ■ AREA # 7 

690 CLS:PRIBT"YOU ARE STAHDIflG H 
EAR A GREAT ARCH. BEYOND IT IS 

AS EVEM KORE DESOLATE PLAIN VIT 
H AN MOUNTAIN BREAKING THE FLATS 
ESS, IB THB DISTANCE. THERE IS 

A SIGH OH THEARCH PAIHTED VITH 
GOLD PAINT." 
700 PR1BT:PRIHT"0PTI0HS 

<1> GO SOUTH T 
HROUGH THB ARCH KZ) UU VEST 

(3) READ SIGB 

(4) EXAMINE TH 
E ARCH" 

710 IHPUT R:0» R GOTO 880,650,73 

0,760 

720 GOTO 690 

730 CLS: PRINT: PRIHT"THE SIGH REA 

D IH A STRANGE LANGUAGE, BU 

T YOU CAB HEAD IT. M : PRINT" IT REA 

DS. .." 

740 PR I NT: PR I IT" VKQ ESTERS THE B 

BDLESS PLAIN": PRIHT"RICHES HAVE 

BEEH FOR THE CAHE" :PRINT"THOSB V 

HO ESTER HAVE TO LEARH": PRIBT"TH 

AT THEY CAHNOT EVER ":PRI 

BT:PRIHT"THB LAST PART Y00 CAN'T 

READ" 
750 BXEC44539:G0TO 690 
760 PHODE 4,1: SCREES 1,1:PCLS 
770 LIHE<66,68)-<92, 124>,PSET,B; 
LIHB<176,66>-<200, 1245, PSET, B: LI 
BE(92,68>~<120,48),PSET:LISEC120 
,46)-<63,68>,PSBT 
780 LINE(14B,48)-C176,68),PSET:L 
IHE<148,48)-(200,68),PSET:LIHE(1 
20 I 48)-(148,48),PSBT 
790 CIRCLE(134,48> ( 14,,1,.5 
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800 LINE(92,68)~(176,68>,PSET:LI 

KE(92 l 124)-(16,192:,PSfiT:LlHE(l? 

6.124>-<148,192),PSET:LINE<92,12 

4)-(176,124),PSEr 

810 PAINT<©0,92>,1,1:PAINT<192,8 

0), l,l:PAIMT(136 ( 60),l,l:PAIHT(l 

16,160), 1,1 

820 LIHE<208, 100>- (240, 11*6), PSET 
,B:LlHE<212,H§)-<2ie.l24>,PSET 1 
B: LINE (232. 116 >- (236, 124 >,PSET,B 
830 LIHB<212,104)-(236,104),PSET 
:L1»E(212,108)-<236,108),PSET:LI 
BE (212, 112X236, 112). PSET 
840 LIBB(200,124>-<256.124>,PSET 
:LIBE(68,124)-(0,124>.PSET 
850 FOR X=l TO 20O0: N£XT:CLS: PR1 
NT: PRINT" THE ARCH SEEMS TO BE 
DRAVING YOU NEAREB, AND WEARER 
VHEN YOU LOOK AT IT." 
860 PRUT" SOON IT HYN0TISES YO 
U AHD ¥OU BEGIN TO WALK THROUGH 
THE ARCH. YOU ARE BOV ON THE END 
LESS PLAlN."rFOR U=l TO 200 

0:NEXT U:GOT0 880 
870 'AREA # 8 
680 FOR T=l TO 5 
890 IF T=5 THEN GOTO 940 
900 CLS:LS="YUU AKfe UB ENDLESS P 
LAIN. THIS FEATURELESS, VIND-BL 
ASTED PLAIR STRETCHES AVAY, BEYO 
ND THE EVEB THE HOKIZON. A LONE 
MOUNTAIN IN THE NORTH BREAKS 

THE PLAINS SKOOTHflESS." 
910 PRINT L*:PR1NT:PRINT"0PTI0NS 

<1) H 
ORTH (2) S 

OUTH <3) B 

AST (4) V 

EST" 

920 INPUT HlHRXT 
930 GOTO 900 

940 CLS; PR INT L*: PRINT" IT HAS BE 
EN THREE DAYS SINCE YOUENTERED T 
HE ARCH. YOU HAVE HAD LITTLE TO 

EAT OR DRINK, SLOVLY YOU HAVE 
FELT YOIIP STRPNGTH GO. YOU HAVE 
DIED. PRESS ANY KEY. ■ : EXEC44539 
:GOTO 2870 
950 ' AREA # 9 

960 CLS;PRINT"YOU ARE AT THE VES 
TERN EDGE OF THE BANDU FOREST. 
AHEAD LIES A COASTAL REGION TO 
THE SOUTH THAT IS NOTORIOUS FOR I 
TS PIRATES. IT IS ABOUT A DAYS 

WALKING AVAY." 
970 PRINT: PRINT"OPTIOHS 

(1) GO SOUTH 
C2> GO VEST" 
980 INPUT R:ON R GOTO 1010,300 
990 GOTO 960 
1000 'AREA # 10 

1010 CLS:PRINT"YOU ARE ON THE SO 
UTH COAST. TO THE VEST THE IS A 

LARGE ISLAND. GROUNDED IN THE S 
AND IS A RATHERRUB-DOVH FISHING 
BOAT." 
1020 PRINT: PRINT"OPT10»S 

CI) GO NORTH 
(2> GET IN BO 
AT" 

1030 INPUT R;ON R GOTO 960,1050 
1040 GOTO 1010 
1050 CLS:PRI»T"YOU ARE IN THE BO 



AT. TVO OARS ARE ON EITHER SID 

E OF THE BOAT. A BROKES-DQVN EHG 

Ilfi IS A THE REAR OF THE VESSE 

L." 

1060 PRINT: PRIHT'OPTIQSS 

Cl> GET OUT 
F THB BOAT <2> GO TO THE 

ISLAND C3> HEAD FOR 

OPEN VATBR, <4> EXAMINE E 

NGJNE." 

1070 INPUT R;OB R GOTO 1010,1090 
,1100,1210 
1080 GOTO 1050 

1090 GOSUB 1130: CLS: PRINT" AFTER 
A SHORT TIME YOU ARRIVE AT THE 

ISLAND. YOU HOP OUT OF THE BO 
AT. ": FOR U=l TO 2000: NEXT U:GOTO 

1230 
110O GOSUB 1130 

1110 CLS: PRINT" AFTER A TIKE TOU 
FALL ASLEEP, AFTER WHAT SEEMS 
FOB EVER THE BOAT JOLTS VIOLEN 
TLY. YOU HAVE RUN AGROUND. SLO 
VLY VOU CLIMB OUT OP THE BOAT. 

VHILE YOU VEREOUT IN THE SUN YO 
U GOT BADLY SUB-BURNT. YOU LOSE 
2 STAMINA PTS.":YS=YS-2 
1120 FOR U=l TU 29001 VEXT UiGOTU 

110 
1130 CLS:PRINT"YOU ARE IN THE BO 
AT THB SMELL OFROTTING SEAVEED M 
AKES YOU FEEL DIZZY. ": PR I NT" OPT 
I0BS ( 

1> ROV < 

2) START ENGINE" 
1140 1HPUT R:OS R GOTO 1160,1180 
1150 GOT01130 

1160 PRINT: PR1NT"Y0U DECIDE TO R 
OV THE BOAT TO YOUR DESTINATIO 
N. THIS TAKES GREAT PHYSICAL 
STRENGTH VHICH YOU DON'T HAVE. 
YOU LOSE 2 PTS OF STAMINA. " : YS 
=YS-2 

1170 FOR U=l TO 2O00:SfiXT U:RETU 
RN 

1160 T=RSB<3>i IP T=1 THEN 15oo 
1190 PRINT: PR I NT" YOU TRY YOU HAR 
DEST TO START THE EHG I HE BUT 

TO WO AVAIL.": FOR U=l TO 150O: NE 
XT U;GOTO1160 

1200 PRINT; PR I NT" THE FUSTY OLD E 
NGINE SPLUTTERS AHD RATTLES BUT 

STARTS. YOU ARE GRATEFULLY THAT 

YOU DON'T HAVE TO ROV.": FOR U= 
1 TO 1500: REXT: RETURN 
1210 PRINT: PRINT"THE ESGINE IS V 
ERY OLD AND IT'S COVBRSD IN SEAV 
EED. IT ALSO HAS AHD BHGRAVENENT 

THATS SAYS ' MARTHA ' . " : FO 

R U=l TO 2000: NEXT; GOTO 1050 
1220 ' AREA # 11 

1230 CLS;PRINT"YOU ARE OR THE SU 
N-SCORCHED BEACH. THE BOAT 

IS AGROUND ON THB SAND AND HAS 
A LARGB HOLE I NIT FROM THE I MP AC 
T OF HITTING AGAINST THE SAND. 
TO THE SOUTH AND VEST IS JUNGL 
E VITH PATHS THAT CAN BE JUST 
MADE OUT." 
1240 PRINT :PR1BT"0PT10NS 

<1> SOUTH 
(2) VEST" 
1250 INPUT R:ON R GOTO 1340,1280 



1260 GOTO 1230 

1270 'AREA # 12 

1280 CLS: PR INT" YOU ARE VALKING T 

HROUGH THE HOT JUNGLE. THERE IS 

AN EERIE FEEL-IHG ABOUT THIS PL 
ACE.": FOR U-=l TO 2500: NEXT: PRIHT 
"T-R-I-P, SUDDENLY A LARGE NET 

SCOOPS YOU UP. YOU DROP YOUR 

SVORD AND YOUR RING AS THEY SLI 
PTHROUGH THE NET. YOU WAIT." 
1290 FOR U=l TO 3200: NEXT: PRINT" 
AS THE SUN SETS ALL THE ANIMALS 
OF THE NIGHT COME ALIVE. 
THE MOON CASTS STRANGE SHACOVS 
IN THE JUNGLE. SLOVLY YOU FALL 
ASLEEP.' v :FOR U=l TO 3000: NEXT U 
1300 PRINT: PRIST" YOU AVAKEH TO F 
IHD THE SUN VELL UP. YOU LOOK A 
ROUHD AHD TO KOURHURRUK THfcKB AK 
E FOUR LARGE NATIVES WITH LA 

RGB SPEARS. THEYSEEM EXCITED AB 
OUT SOMETHING. YOU SUDDE8LY RE 
ALISE SOMETHING ABOUT THEM.":FO 
R U^l TO 3500: NEXT U 
1310 PRINT" THEY ARE CANNAEILS": 
PR I NT" THEY TAKE YOU BACK TO THE 
TRIBE AND COOK YOU FOR THEIR DIN 
HER. YOU ARE DEAD. PRESS ANY KE 
Y":EXEC44539:GOTO 2870 
1320 GOTO 1280 
1330 ' AREA # 13 
1340 CLS: PR I NT" YOU ARE IN THE TH 

ICK OF THE JUNGLE. IT IS VE 

RY DAMP AND THESVBAT DRIPS OFF Y 
OUR BROW. TO THE VEST YOU SEE 
A TEMPLE. TO THE SOUTH-EAST TH 
ERG IS A LARGE VOLCANO." 
1350 PRINT: PRINT"OPTIONS 

(1) GO HORTH 

(2) GO SOUTH 
<3> GO VEST" 

1360 IHPUT R:0N- R GOTO 1230,2140 

,1390 

1370 GOTO 1340 

1380 ' AREA # 14 

1390 IF TLS="LIVE" THEN 1440: IF 

TL*="DEAD" THEN 1400 

1400 CLS:PRINT"YOU ARE STAHDING 

AT ENTRANCE TO A TEMPLE FOR THE 

CELESTIAL GOD, ARCTURUS, THIS IS 

VHERE YOUR FOEANARCHLL ViLL CAR 
RY OUT HIS EVILPLOT TO DESTROY T 
HE EARTH." 
1410 PRINT: PR1NT"OPT10NS 

U> GO EAST 
(2> ENTER THE 

TEMPLE" 
1420 UPUT R:ON R GOTO 1340,1710 
1430 GOTO 1390 

1440 CLS: PRINT: PR I NT" YOU ARE HID 
IHG IN THB BUSHES, AT THE ENTR 
AHCE TO A TEMPLE FOR THE CELESTI 
AL GOD. ARCTURUS, THIS [S VHE 

RE THE EVIL ANARCH I L VILL CARRY 
OUT HIS DEADLY PLAN TO DESTROY 
THE EARTH. THERE IS A GUARD OUT 
SIDE THE TEMPLE." 
1450 PRINT: PR1RT"0PTI0HS 

(1) GO SAST 

(2) ENTER THE 
TEMPLE <3> ATTACK TH 

E GUARD" 

1460 INPUT R:0H R GOTO 1340,1670 
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,1470 

1470 CLS:IF TG=<0 THEN 1650 
14S0 !F YS<=0 THEH 1660: PRIST: PR 
IHT" F I G H T I I G" 

1490 PRINT:PRINT"YOUR STRENGTH : 

»!¥S 

1500 PRINT" TEMPLE GUARD'S STRENG 

TH : M .TG 

1510 PRINT: PRINT" VHERE DO YOU VI 
SH TO ATTACK THE TEKPLE GUARD" I P 
RI1T" (1) HEAD 

<2> STOMACH 
(3) BECK 
C4> BACK" 
1520 IHPUT FS;T=RND(5>; IF T=2 TH 
EH GOTO 1610 

1530 ON FS GOTO 1550,1560,1570,1 
60O 

1540 0OTO1470 

1550 r=RND(3):PRINT"V0U BRIHG TH 
E SVORD DOVH UPON THE GUARD'S 
HELMET AND HURT HIM, HE LOSES" ;T 
; "STAMINA PTS": TG=TG-T: GOTO 1690 
1560 r=RHDC3>:PSIBT"Y0U SLASH TH 
E GUARD ACROSS HIS GUT AND HE C 
ROUCHES OVER IB HIS PAIN. HE LOS 
ES";T; "STAMINA PTS": TG=TG-T: GOTO 

1690 
1570 r=RNDC10):IF T=5 THEN 1590 
1580 PRINT"THE GUARD DUCKS YOUR 
VILD SVING AND SWINGS HIS SWORD 
AT YOU BUT MISSES BY A H1LE.":G0 
TO 16*0 

1590 PRINT" YOUR SVORD CONES ACRO 
SS THE GUARD'S NECK AND LOPS 

HIS HEAD OFF" :TG=TC-TG: GOTO 16 
90 

1600 PRINT" YOU CRUNCH YOU SWORD 
IN TO THE GUARD'S BACK BUT HIS 
ARMOUR PRO-TECTS HIM": GOTO 1690 
1610 T=RHD(3):ON T GOTO 1620,163 
0, 1640 

1620 T=RND(3):PR1HT"THE GUARD TH 
ROWS A DAGGER VH1CH LODGED IB YO 
UR LEG. YOU LOSE";T;" STAMIHA PT 
S":YS-YS-T:GOTO 1690 
1630 T=RNDC3):PR1HT"THE GUARD SV 
IHGS HIS MACS AND SLASHES YOUR 
SVORD ARM. YOU LOSE"; T; "STAMINA 
PTS" : YS=YS-T: GOTO1690 
1640 T=RNIK3>: PRIST" THE GUARD PI 
CKS UP A ROCK AND HURLS IT AT 
YOU. YOU TRY TO JUMFAVAY FROM IT 
BUT IF HITS YOU ON THE HEAD. TO 
U LOSE";T;"STAMI»A PTS": TS=YS-T; 
GOTO 1690 

1650 TLS-" DEAD": PR I NT" YOU HAVE K 
ILLED THE TEMPLE GUARDYOU CAN MO 
V ENTER THE TEMPLE IN SAFETY.": F 
OR U=l TO 1000: NEXT: GOTO 1390 
1660 PRINT" THE TEMPLE GWARD HAS 
KILLED YOU. HE HAS TAKEN ALL YOUR 

POSSES IONSAND THROWS YOUR BODY 
TO THE VILDANIHALS.":FOR U=l TO 
1000: HEXT U:GOTO 2870 

1670 CLS:PRIBT:PRIBT"THE TEMPLE 
GUARD LEAPS OUT TO STO? YOU FR 
OM ESTERING THE GREATTEMPLE BUT 
YOU IGNORE HIM AND KEEP WALK IN 
G. HE BRINGS HIS FIST UP AND 
LANDS A PUNCH TO THEBACX OF YOU 
R HEAD. YOU LOSE 1 STAK1SA PT. 
":YS=YS-1 



1680 PRIB'P'YUU MUSI FIGHT THE GU 

ARD":FOR U=l TO 1000: NEXT U:GOTO 

1470 

1690 FOR 11=1 TO 1200: NEXT U:G0TO 

1470 

1700 ■ ARSA # 15 

1710 CLS:IF AL$="LIVE" THEN I860 

1720 IF AL*="DEAD" THEH 1730 

1730 IF PD»="YES" THEN 1790 

1740 IF PD*»"HO" THEH 1750 

1750 CLS: PRINT" YOU ARE IB A DESE 

RTED TEKPLB. THERE IS AN OLD B 

LOODSTAINED ALTAR IN THE HIDD 

LE OF IT." 

1760 PRINT: PR I NT" OPT IONS 

(1> GO NORTH" 
1770 INPUT R;ON R GOTO 1390 
1780 GOTO 1750 

1790 CLS:PRIBT"YOH ARR IN A NAfiN 
IFICENT TEMPLE. ALL THE WALLS ARE 
OF PURE KARBLEAND AN ALTAR IN T 
HB MIDDLE MADE OF GOLD. YOU SEE 
THE PENDANT OF DEATH SITUATED OH 
A PILLAR OF MARBLE." 
1800 PRINT: PR IHT" OPT IONS 

Cl> GO NORTH 
C2> GET PESDAH 
T" 

1610 INPUT R:ON R GOTO 1390,1630 
1820 GOTO 1790 

1830 CLS:PRIHT"YOU CAREFULLY PIC 
K UP THE SACREDARTIFACT AND HOLD 
IT INTO THE LIGHT- IT GLOWS I 
N THE THIN RAY OF SUNLIGHT. SUD 
DENLY THE LARGETEMPLE SHAKES VI 
OLEHTLY." 

1640 PRI»T"ALL THE VALLS ARE SLI 
DING OF ANOTHER EXPOSING ROTT 

1NG TIMBER.": FOR U=l TO 2500:NEX 
T U 

1S50 PD$* M HO»iGOT01750 
1660 CLS: PRINT" YOU ARE IN A MAGN 
1F1CEHT TEMPLE. ALL THE WALLS ARE 
OF PURE MARBLEAHD AN ALTAR IN T 
HE MIDDLE MADE OF GOLD. YOU SEE 
THE PENDANT QFDEATH SITUATED ON 
A PILLAS OF MARBLE." 
1870 PRIST'ARNACHIL SPINS AROUND 
AND CASTS A SPELL AND A MAGICAL 
SVORD APPEARS IK HIS HAND." 

1380 PRIHT:PR1NT"0PTIQNS 

U> RUN NORTH 
<2> FIGHT AMA 
RCHIL" 

1690 INPUT RrON R GOTO 1910,1920 
1900 GOTO 1860 

1910 CLS; PRIST" YOU BEGlfl TO RUH 
AMD ANARCHIL" S VOICE BOOMS OUT ' 
RUN FROM ME DO YOU YOUNG FOOL' A 
ND HE PROCEEDS TO THROV HIS SVOR 
D AT YOU. HIS SVORD VAS THROWN 
VITH PRECISION. YOU SLUMP ON THE 
FLOOR AND DIE. " : PRINT"PRESS ANY 
KEY": EXEC 44539: GOTO 2870 
1920 CLS: IF YS=<0 THEN 2110 

1930 IF AN=<;0 THEN 2100 

1940 CLS: PRINT: PRINT" F 

1 G H T I H G" 

1950 PRIST: PRINT"YOUR STRENGTH : 

";YS: PRINT" ANARCHIL' S STRENGTH -. 

*'; AN 

1960 PRIHT:PR1NT"VHERE DO YOU VI 

SH TO ATTACK HIM" 



1970 PRINT: FRIHT" CD THE HEAD":P 
RINT"<2> STOMACH": PR IHT" (3) THE 
LEGS": IF SCi="YES" THEH PRINT" (4 
) USE THE SCROLL" 
1980 INPUT FS:T=RND<3>: IF FS=4 T 
HEN 2080 

1990 IF T=2 THEN 2040 
2000 OH FS GOTO 2010,2020,2030:0 
OTO 1920 

2010 T=RND(3>:PRIBT"YOU SVING YO 
UR SVORD AT AHARCHILAND YOU CONN 
ECT HARD AND HE HAS LOST";T"STAK 
INA PTS" :AN=AN-T: GOTO 2120 
2020 T=RNDC3>:PRIHT"ARNACHIL DOE 
S VELL TO CUT DOVH THE SEVERITY 
OF YOU DRIVING YOURBLADE THROUG 
H HIM HE MANAGES TO LOSE ONLY";T 
;" STAMINA PTS": AH=AN-T:GOTO 2120 
2030 T=RN»(3):PRIHT"Y0U QUICKLY 
SQUAT DOVH AND SLASH YOUR SVORD A 
CROSS ANARCHIL'S SHIN'S AND H 
E GRABS ONE IB PAIN. HE LOSES" ;T; 
"STAMINA PTS": AN=AN-T: GOTO 2120 
2040 T=RND(3):ON T GOTO 2050,206 
0,2070 

2050 T-RND<3>; PRINT" ANARCHIL CAS 
TS A FIREBALL AT YOUAND YOU MANA 
GE IT GET PARTLY QUTOF ITS VAY. 
IT HITS YOU ON THE ARM AND YOU 
LOSE";T;"STANINA PTS"; YS=YS-T:GO 
TO 2120 

2060 T=RND(3): PRINT" ANARCHIL SVI 
NG HIS SVORD AT YOURHEAD AND HIT 
CLIPS YOUR EAR. YOULOSES";T;"ST 
AMINA PTS":YS=YS-T:GOTO2120 
2070 T=RND<3): PRINT" ANARCHIL SHO 
OTS LIGHTNING FROM HIS FINGER A 
HD HITS YOU DIRECTLY YOU TAKE TH 
E BRUNT OF THE BLOV AND LOSE";T; 
"STAMINA PTS H ;YS=YS-T:GOTO2120 
2080 IF SC$="NO" THEH 1920 
2090 CLS:PRlNT"B-0-0-M, THE SCRO 
LL RELEASES AN ENORMOUS AMOUNT 
F ENERGY AT THEVEZARD AND HE SCR 
EAMS IN PAIN ASIT HITS HIM. HE L 
OSES 10 STAMINAPTS":AN-AN-10:SC* 
=» NO" t FOR U-l TO 2500iNEXT U:GOT 
01920 

2100 PRINT" YOU HAVE USED ALL YOU 

R COURAGE AND STRENGTH TO BAN IS 

H ANARCHIL TO THE FATE OF A MERE 

MORTAL ANDNOV THE PENDANT IS VI 

THIN YOUR GRASP.": FOR U=l TO 25 

00: NEXT: A1S=" DEAD": GOTO 1710 

2110 PRINT"ANARCHIL HAS USED HIS 

POVERFUL MAGIC TO DESTROY YOUR 

ATTEMPTS 10 REGAIH THE PENDANT 

.":PRINTNS;:FOR U=l TO 1500:NEX1 

U:GOTO 2870 

2120 FOR U=l TO 1500: NEXT U:GOT0 

1920 
2130 ' AREA # 16 

2140 IF DL4--"DEAiy THEN 2360:CL£ 
:PRINT"YOU ARE IN A LARGE VALLEY 
WITH A TRAIL LEADLNG UP TO A A 
CTIVE VOLCANO. THERE IS A RED E 
RAGON HERE." 

2150 CLS:PR!NT"YOU ARE IN A LARG 
E VALLEY VITH ATRA1L LEADING UP 
TO AN ACTIVE VOLCANO. THERE 1 
S A RED DRAGON." 

2160 PRINT: PRINT (, 0PTI0NS": PRINT" 
<1> GO NGBTH": PRINT" (2) GO E 
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AST": PRUT" (3> ATTACK DRAGOB" : 

PRINT" (4) TRY TO TALK TO THE D 

RAGOB" 

2170 INPUT R:ON R GDTO 1340.2450 

.2190,2340 

2180 GOTO 2140 

2190 CLS: IF DN=<0 THEN GOTO 2410 

5200 IF YS=<0 THEB GOTO 2420 

2210 PRINT: PRIST" F I C 

H T I H G": PRINT: PRINT" YOUR STRE 

NGTH :";YS;PR1BT"RED DRAGOH'S ST 

REBGTH :";DN 

2220 PR1BT:PRINT"VHERE DO YOU VI 

SH TO ATTACK THE RED DRAGOB":PRI 

HT" (1) HEAD"; PS I ST" (2) STOMA 

CH":PRIBT" (3) BACK" : PRIIIT" (4 

) TAIL" 

2230 INPUT FS:T=RHE(4>: IF T=2 TH 

EB GOTO 2300 

2240 ON PS GOTO 2260,2270.2260,2 

290 

2250 GOTO 2140 

2260 T=RBD<3):PRIHT"YOU BFIBG YO 

UR BLADE DOWN ONTO THE BEAST'S 

HEAD. ; IT LOSES" ;T;" ST AMI HA PTS" 

:D8=DN-T:GOTO2430 

2270 T=RND<3):PRIHT"Y0U SLASH YO 

UR SVORD ACROSS THE DKAUUNS UUT 

AND IT LOSES ";T;" STAMINA PT 

S":DN=DN-T:GOTO 2420 

2280 T=RND<3); PRINT" YOU CRUNCH Y 

OUR SVORD DEEP INTO ITS BACK AND 

IT SCREECHES IB 11SPAIB. IT LO 
SES" ; T; "STAMINA PTS" : DN=D»-T: GOT 
2430 

2290 T-RND<3): PRINT" YOU STICK TH 
E SWORD INTO ITS TAIL AND THI 

S CAUSES A HORRIBLE GREEN BLOOD 
TO OOZE OUT. IT HAS LOST";T; H STA 
H1NA PTS"rDN=DB-T;GOTO 2430 
2300 T=RND<3)jON T GOTO 2310.232 
0.2330 

2310 T=RND<3):PRIHT"THE DRAGON H 
ITS YOU WITH A BLASTOF WHITE AND 

BLUE FIRE. IT BURSSYOUR SKIN BA 
DLY. YOUR SVnRH ARK WAS HIT. YO 
U LOSE ";T; "STAMINA PTS" : YS=YS-T 
:GOTO 2430 

2320 T=RND<3):PRINT"THE DRAGON T 
HUMPS YOU WITH HIS TAIL, VINDIN 
G YOU, AND YOU LOSE ";T" STAMINA 

PTS" :YS=YS-T: GOTO 2430 
2330 T=RND<3):PRINT"THE DRAGON F 
LAPS HIS TVO MIGHTY WINGS AND BL 
OWS ROCKS UP HITTIKGYOU. YOU LOS 
E" ; T; "STAMINA PTS" : YS-YS-T: GOTO 
24302340 CLS: PR1BT"Y0U TRY TO CO 
NMUNICATE VITH THE DRAGON. IT S 
AYS IT IS FROM THE BROTHERHOOD 
F AJHSOHI, THESE AREANARCHIL'S EN 
ENY'S AND THEY SEHTTHE DRAGON TO 

GIVE ME A POTIOB. HE GIVES YOU 
A CANNISTER. YOU DRINK IT AND 
IT INCREASES YOUR" 
2350 PRINT"STRENGTH BY 5 STAMINA 

PTS. HE SAYS GOOD-BYE AND FL( 
ES AVAY.":YS=YS+5:CLS="DEAD":PRI 
BT"PRESS ANY KEY" : EXEC44539 
2360 CLS:PRINT"YOU ARE IB A LARG 
E VALLEY WITH ATRAIL LEADING UP 
TO A ACTIVE VOLCANO. THERE IS 

A STRANGE FEEL-ING IN THE AIR." 



2370 PRINT: PRINT"OPTIONS" 

2380 PRINT" CI) GO NORTH": PRINT 

" (2) GO WEST" 

2390 INPUT R:OB R GOTO 1340,2450 

2400 GOTO 2360 

2410 CLS: PR J BT" YOU HAVE DESTROYE 

D THE DRAGOB AND ALL THE KBOVL 

EDGE YOU COULD HAVE GAINED FROM 

IT.":FOR U=l TO 1500:BEXT U:DL*= 

"DEAD**: GOTO 2140 

2420 CLS; PRIST" THE RED DRAGOH HA 

S KILLED YOU INDEFEND1HG ITSELF. 

M :F0R U=l TO 1500:BEXT lJ:GOTO 28 

70 

2430 FOR U=l TO 1200: BEXT U:GOTO 

2190 
2440 < AREA # 17 

2450 CLS: PRINT" YOU ARE AT THE BA 
SE OF A VOLCABOTHE TOP OF THE VO 
LCANO IS SMQULD-ERIHG AID THERE 
IS AH ABUNDANCE OF PLAHT LIFE AR 
OUBD." 

2460 IF PD£="NO" THEN 2500 
2470 PRINT: PRINT"0PTI0K3 M : PRINT" 

CI) GO VEST" 
2480 INPUT S:0!f R GOTO 2140 
2490 GOTO 2450 

2500 PRINT: FRIRT"OPTIONo": PRINT" 
(1) GO VEST": PRINT" (2) CLIMB 

TO TOP OF VOLCANO": INPUT R:08 R 

GOTO 2140,2530 
2510 GOTO 2450 
2520 * AREA # 18 
2530 CLS: PRINT" YOU ARE AT THE TO 
P OF THE GIANT VOLCANO. THE SUL 
PHUR FUMES ARE NEARLY BECOMING B 
UT YOU MANAGE TO OVERCOME THBM. 
THE LAVA BE-LOW IS BUBBLING F 
URIOUSLY." 

2540 PRINT: PR1BT"0PTI0NS": PRINT" 
(1) CLIMB DOWN THE VOLCANO": PR 
IBP' (2) CAST THE PENDANT IN TH 
E LAVA" 

2550 INPUT R:0H R GOTO 2450.2570 
2560 GOTO 2530 

2570 CLS-PR1NT"Y0U CAST THE PBND 
ANT IB TO THE RED-HOT LAVA AHD 
AS IT HITS THE LAVA THE VOLCANO 
FILLS VITH A BRILLIABT BLUE LI 
GHT. AND THE IMAGES OF DEMONS 
AHD COMETS ALSOAPPEAR AND THEB T 
HE LIGHT FADES AND SO DO THE IMA 
CES." 

2580 PRINT: PRIST" C N G R A T 
U L A T I B S" 
2590 PRINT" VELL DONE, YOU HAVE 
SAVED EARTH AND DESTROYED THE EV 
IL ANARCHIL IN THE PROCESS. YOU 

HAVE GONE DOVN IB EARTH'S HIST 
ORY BOOKS ASQfB OF THE GREAT ADV 
ENTUREKS.":END 
2600 END 
2610 CLS 

2620 PRINT: PRIMP 1 IN THE YEAR 5 
000 B.C. EARTH EBCOUNTERED A N 
EAR COLLISION VITH A LARGE CO 

MET. OB THE NIGHT OF THE CO 

METS CLOSEST APPROACH THE EA 

RTH VAS NEARLY DESTROYED, THE 

TREMENDOUS FORCEROCKED THE PLAN 
ET CAUSING A EXPLOSION"; 

2630 PRINT" FROM DEEP WITHIN THE 



EARTHS CORE.": PRINT: EXEC44539: 
PR I ST" FROM THIS THE PEBDAHT OF D 
EATH VAS FORGED. YOUR MISSION 
IS TO RECOVER THE PENDANT AND DE 
STROY IT BEFORE ANARCHIL, THE MA 
STER OF WIZARDS. TAKES IT TO DE 
STROY YOUR LAHD." 
2640 PRINT" HERE IS THE HOLOGRAM 
OF THE PENDANT.": EXEC 14539 

2650 PNODE 4 , 1 : PCLS: SCREEN 1,1 
2660 LINE(92,64)-<92,164),PSET 
2670 LINEU48,64>-<14B,164),PSET 
2680 CIRCLE (120, 64), 36 
2690 LINE<148,64>-<120,124),PSET 
2700 LINEQ20, 124)- (92,64) ,PSET 
2710 CIRCLE (120, 132), 8 
2720 LINE(120,124)-(120,1«0).PSE 
T 

2730 LINfaU 12,132)- (128. 132), PSE 
T 

2740 PAINTU22, 1293,1,1 

2750 PAINTU18, 1333,1,1 

2760 LINE(116,128)-(124,136),PSE 

T.B 

2770 LINEQ20, 192)-(148. 164), PSE 

T 

2780 LINE(120,192)-(92,164),PSET 

2790 PA INT < 120, 64), 1,1 

2800 LINE<148,64)-(25&,0>.PSBT 

2810 L1NEC148,164)-(256,192),FSE 

T 

2820 LINE(92,164)-(0,192>.PSET 
2830 LIBE(92,64)-(0,0),PSET 
2840 PAIBT(212, 1083,1, 1 
2850 PAINT(40,120).1,1 
2860 EXEC 44539:CLS; PRINT: FRIHT" 
YOU HAVE TO GO BACK INTO TIME 
AND DESTROY THE PENDANT BEFORE 
ANARCHIL RECALLS THE COMET TO 
DEVASTATE THE EARTH. ": EXEC44539; 
GOTO 50 

2870 PSINT: PRIST" THE EVIL ANARC 
HIL AND HIS EVIL LEGIONS OF DEST 
RUCTIOH HAVE SUCCEEDED IB RE 

GAINING THE POWEROF THE PENDANT. 
AT THE PREREHT MflMErtT YOUR PLA 
BET IS MOV BEIBG TORB APART BY T 
HE LEGEKDARY COMET. YOU HAV 

E FAILED IB YOUR QUEST." 
2880 PB1BT:PRIBT"D0 YGU VISH TO 
CHANCE YOURSELF AGAIN (Y/I)":IH 
PUT YN*:IF YN«^"Y"THEN RUB: IF YN 
$="N"THEN END 

O 
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ADDITION OF A 
FRACTION 



32K ECB 
EDUCATION 



by Bob Home 



THIS IS THE fallow up 
program to "Idea of a 
Fraction". I have 

included a tutorial on the type6 
dealt with. 

Thie tutorial la an e*tenslon 
of the way that I demonstrate 
the sums to the class. The 
grape, line and orange were used 
because of their colours and the 
colours available on the 
graphics screen and also because 

of the fact that they have short 

names. 

I was very particular in this 
tutorial to put on the screen 
any worde about the line in 
green, about the orange In 
orange etc. 

If you do not wish to have the 
tutorial In your progran, then 
leave out lines 101 to 150* 

I think the most important 
part in this program comes at 
the end of a session. In this 
section, the names of those who 
too often asked for help, or who 
made too many mistakes are 
printed on the screen. 

I have found tht6 section a 
great help to me in deciding who 
uses which program next tine. 

The "ZZZZ" in line 290 acts as 
a password. Alter it if you 
wish. To put in your own class 
names. Just alter the data in 

line 314. If you have a 
different number of children in 
your class, then alter the value 
of TL In line 7- 

Vhen running this program on a 
DISK system with 23 names, there 
le less than IK of free meoory. 
So, if you need more room then 
you can free up about another IK 

by deleting all the REKarks. 

If you have my program on 
"Compound Vords", you will no 
doubt recognise the rocket and 
launching pads which I have 
resurrected for this series. The 
rocket appears in the next two 




program* as well, albeit doing 
different things. 

Although I use this program in 
Tear 5, I see no reason why it 
can't be used at other levels. 



The Listing: 



G0T07 

i mntttutttxttntttttttttttxtt 

2 REM* ADDITION * 

3 REM* OF FRACTIOUS * 

4 REX* BY BOB HORKE * 

5 REM*************************** 

6 SAVE"S7:3 M :EirD 

7 PCI.FAR4:CT.EAR500: Tl.=23: THffCfi. V 



*, CH* <58> , RUO) , BD(10) , Z<8) , FR<2 
0) , FB <20) , HJ CTL) r R» CTL) f TT (4) , HL 
(8) :CLS:PRINT«197, "ADDITION OF F 
RACTIOBS. "j;PR[HT$271 l "BY ,, ;iPREI 
TG33 1 , " BOB ROSBB . " ; : SCREENO, 1 

8 FORZ=0TO58:RHADCHS<Z>:BBXTZ:FO 
R2=1T0 TL:READ»$<Z):XBXTZ:F0RZ=1 
TO TL:R*CZ)=STRIUG*C4 l 32)!lEXTZ: 
PS="L16T16P16":Pl*="T12Vl5O3CEG0 
4L2C03L4G04L2C" : Pai^'LeiePe" : A=F 
ND<-TIMER> 

9 PXODEg.lzCOLORS.OiPCLSiDRAVBB 
2, 140B2F2DUH2yR207F2D3L2U6H2G2D6 
L2U3B2D7R2" :GBT<0, 0>- (10, 18) , R, C 
:PCLS 

10 FORX-l5T0225STEP51:LUreCX,86J 
-<X+20,88> 1 PSET,BF:LIBEa i 91)-U 
♦20,94), PSBT , BP : FOR I =89T090 : PSET 
<X+5, Y> : PSET<X+15. Y> : BBXTY, X: LIB 
E<0,95)-<255,95),PSBT 

11 FGRX=21T0225STEP51:PUT<X,70)- 
a+10, 84> , R, PSBT: IEXTX: F0RX=lTO5 
: PSET<RID<255) , RBD<76> ) : NEXTX: P 
C0PY1T03 : PC0PY1TQ4 : PCLS5 i GOTQ79 

12 KKH***imilJE UP TO print***** 

13 IF LEKCSXaL THEBVS=CS : GOSCB 
18:RBTURR 

14 F0RT=L TOlSTEP-liIF XIDS(C$,T 
, 1)=" "THBB16 

15 BEXTT 

16 VS=LEFTS<CS,T>:GOSUB18;C$=RlG 
HTS(Ct, <LEKC*)>-T) :GOT013 

17 REK****T0 GRAPHICS SCREBB**** 
Id IF SC-1 TUEB24 ELGBDRAV"S=S; Z 

=Cl;BM"tSTR*(Xl>t" ( "t6TR$(Yl) 

19 FORI=1TOLEN<V*> 

20 F=ASC(HID$<V«,I,l)>-32 

21 DRAWCM(F)+"BR3" 

22 IEXTI : Y1-Y1+Y2: RBTURB 

23 REK******T0 TEXT SCREEN****** 

24 PRIBTV$:RBTURI 

25 REK*****DRAV A FRACTIOH***** 

26 A5*=STR$<A5>:Bl*=STR»<82>iA5* 
=RIGHT$ CAOt, LEH<A5t >-l) : B1*=RIGH 
T*<B1S,LEH(B1S>-1): L5=LEB(A5S);L 
6=LBDCB1») 

27 IF L5 =L6 THEI A7=X:B6=X ELSE 
IP L5=l AND L6=2 THEI A7=X+6:B6= 
X ELSE IP L5=2 AHD L6=l THEN A7= 
X:B6=X+6 

28 DRAV"C=C1;"; IF KO0 THEB29 EL 
RKYl=A7:CS=A5t:G0SUB13 
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29 IF L5=2 AND L6=l THEN LIHEU7 
-2,Yl+5)-<A7+20>Yl+5),PSET ELSE 
LINECB6-2, YU5)-(B6tL6*10+2,YH-5 
>,PSET 

30 Xl=B6;Yl=Yltl9;C»^Bl$;GOSUB13 
: Y1=Y1-11: RETURN 

31 REM*CHECK IF IN LOVEST TERMS 

32 F0RZ=B1 T02 STEP-1 

33 IF B2/Z=lNT(B2/2) AHD D2/Z=IH 
T<D2/Z> THEH CD=CD/Z: B2=B2/Z 

34 NEXTZ: RETURN 

35 REM******INPUT A NUMBER***** 

36 IS$=IHKEYS 

37 IH$=INKEYS; IF IN*<>"" THEH39 
ELSE PLAYPV DEAV"S8C5BH73, 14U3HU 
3R3U2D5C=Cli":LINE<Xl,Tl-8>-(Xl+ 
&,Y1),PSET,BF 

38 PLAYP*!DKAVC6BK73, UU3NU2R3U 
2D5C=Cl; ,, :Lr»E(Xl,Yl-8>-(Xl+6,Yl 
), PRESET ,BF:G0TO37 

39 IF IN$="H M AHD H1=0 THENGOSUB 
44:GOT03-6 

40 IF ASCUNSK48 OR ASC<1HJ>>57 
THEM37 

41 IF INS=MH>S(ANS,TT,i> THE»C$= 
INi:G0SUB13: PLAYP1* :RETURH 

42 Vrt^VAU:X=Xl;Y=Yl:Xl=38:Yl=CG 
*15:S1=S:S=8;CS="S0RRY TRY AGAIN 
":GOSUB13:PLAY"01":FORZ=1TQ4:PLA 
Y" T2500+ V30DFDGD" : NEXTZ: GOSUB7 : 
LINE<35,CG+4>-<218,CG*16), PRESET 
,BF:X1=X:Y1 = Y:S=S1:C0T036 

43 RBM*****HELP ASKED FOR****** 

44 H1=1:X3=X1:Y3=Y1:X1=130:HL(H) 
=HL(H)+l:ON H GOT045, 48, 49. 49, 48 
,56,57,57 

45 B5S=STR$<B):B6$=£TR$(D):B5$=R 
IGHT»<B5$,LEN(B5$)-1):B6$=RIGHTJ 
CB6S,LEN(B6S)-l):Cl=8:¥l = Y3+20: I 
F TZ<5 THEN CS=" IT'S IH THE":G0S 
UB13:Y1=Y1+14:C4= M SUM.":G0SUB13: 
GOT047 ELSE C$="TRY "+B5*+"X"+B6 
s 

46 IF B*D=CD TH£NGG£UB13;G0T047 
ELSEB7=B*D/CD: B7$=S7R$<B7> : B7S=R 
[GHTS<B7», LEN<B7»>-l>:C>-C*+"/" + 

B7$;COSUB13 

4? C1=8:X1=X3:Y1=Y3:RETURN 

48 S=8:C$="ADD WHOLES. ":GOSUB13: 
X1=X3: Y^YSiDRAVC^lj'^S^l^RBT 
URN 

49 X=130;IF H-3 THEN A5^A:B2=B:L 
St=STRi(CD/BJ:LS=LEK(LS4> ELSE A 
5=C:B2-D:LSS=STRS<CD/D>:LS=LEN<L 
St> 

50 G0SUB26:1F L5=2 AND L6=l THEN 
Xl=A7+25 ELSE Xl=B6*L6*10+7 

51 C*="=":GOSUBi3:Y]=Ya-3;X5=Xl+ 
15: IF L5=l ANDL6=2 THEHXl=X5+6: E 
LSE X1=X5 

52 IF LS=2 AND L6=l THEN X4=Xl+5 
6 ELSE IF LS=3 AND L6=l THEN X4= 
XI +68 ELSE IF LS=2 AND L6=2 THEN 

X4=XH56 ELSE X4=Xl+80 

53 LIHECX5,Y1)-(X4,Y1),PSET:CS=A 
5S+" X"+LSS 

54 Yl=YL-5:GOSUB13;>:i=X5:Yl=Yl+l 
9:CS=B1£+ M X"+LSS 

55 G0SUB13:X1=X3;Y1=Y3:DRAV"C=C1 
;": RETURN 

56 Xl^OiY^Yl+SiCt^ADD NUNERAT 
ORS" : G0SUB13: DRAV"C=C1 ; " : X1=X3: Y 
1=Y3; RETURN 

57 Xl=lQ0;S=8:C*=A3i+V"+CD*+"=l 
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R "+A4$:GQSUB13:X1=X3: IF H=7 TH 
EH S= 12: RETURN ELSE RETURN 

58 REH******GET NEXT PAGE****** 

59 DRAV"C6":LINE<0,176>-<255,191 
) , PSET, BF; Xl=50; Yi=188: Cl=5; C*=" 
PRESS <ENTER>.":GOSUB13:INS=INKE 
YS 

60 IR$=1HKEY$: IF INSOCHRt (13) T 
HEN60 ELSE X 1-0: RETURN 

61 REH*******DRAV GRAPES******* 

62 FORX=OTO Z-l: CIRCLE<X*20+X3. Y 
33 I 10,7 t 1.5:PAlNT<X*20+X3,Y3) l 7, 
7:DRAV"CeBM"+STRS<X*20+X3)+ ,, ,"*S 
TR$<Y3-15>+"V3":BEXTX; RETURN 

63 REM*******DRAV A LIKE******* 

64 F0RX=0TO Z-l: CIRCLE(X*50+X3.Y 
3) 1 20,6:PAI»T<X*50+X3,Y3),6,6:DR 
A V»C8 BM" *STRS <X*50+X3 > ** , " 4-STRS ( 
Y3-20 ) +"B3 N : IEXTX: RETURN 

65 REM******DRAV AH 0RAS5E***** 

66 FORX=OTO Z-l : CIRCLE <X*70+X3, Y 
3) ( 30 I 8:PAINT<X*70+X3,Y3),6,8:DR 
AY'C6BM"+STRS<X*70+X3>+V'+STRS< 
Y3-30 ) +"B3" : NEXTX: RETURN 

07 REH*FLASH VORD TO BE ALTERED 

68 GET<G,H)-U,J),FR,G:FORX=1T01 
0: PUTCG, H)- < 1 , J > , FR. PSET: PLAYPS: 
PUT <G, H)- ( I , J ) , FB, PSET: PLAYP$: HE 
XTX: RETURN 

69 REM**********DELAY********** 

70 FORZ=1T01500: NEXTZ: RETURN 

71 REM***<ENTER> TEXT SCREEN*** 

72 PRINT$484 1 "FRESS <EHTER> TO C 
ONTlRUE. M i:IRt=INKEY* 

73 IN$=INKEY$: IF II*OCER*<13) T 
HEN73 ELSE RETURN 

74 EEK*********DRAV BOX********* 

75 DRAV"C8":LINE<0,120)-<255,170 
), PSET, B: RETURN 

76 P.EM*********CLEAR BOX******** 

77 LINE<2, 122)- <253, 168). PRESET, 
BF: RETURN 

78 REM*****MIXED OR COKHON***** 

79 CLSRND(6>+2:PRINT®192, "WOULD 
YOU LIKE MIXED NUMBERS OR JUST C 

OMMOH FRACTIONS? PLEASE TYPE < 

M> OR <C>": INS-INKEYS 

80 LH$=INKEV»: IF IHt= , " , THEN80 E 
LSE IF II$="C" THEN TY=1 ELSE IF 

IN£= M H H THEN TY=2 ELSE80 

81 REM*****CHOOSE A TYPE******* 

82 L=31:CLS:SC=1:CU=" - FRACTIO 
R ADDITION ":C2S=" LESS THAN 1." 
:C3S=" GREATER THAH 1." : X=128: PR 
lNT@0,STRINC*<3,X>i "whlch'XHR* <X 

>"klpd"CHRS<X>">iould M CHR»(X? H you 
"CHB$<X>"like"STRINGS<4,X);:POKE 
1052,46 

83 C*= M 1) LIKE DENOMINA70RS"+C1S 
+C2S:G0SUB13:P0KE1Q56,49 

84 CS="2) SAME AS 1"+C1S+C34:G0S 
UB13:POKE1120,50 

85 C*="3> ONE DENOMINATOR A FACT 
OR OF THE 0THER"+C1S+C2S:G0SUB13 
:POKE1184,51 

86 C4="4> SAME AS 3"+Cl*+C3$:G0S 
UB13:POKEl2fl0,52 

87 C*="5> UHLIKE DENOMINATORS'^ 
l$+C2$:GOSUB13: P0KE1344.53 

88 C$="6) SAME AS 5"+CU*C3$: GOS 
UB13:POKE1408,54 

69 C$='*7) A MIXTURE OF THE ABOVE 
. " : GOSUB13 : POKE1472, 55 
90 X=128:PRINT^480,CHR4(X)CHRS<X 



) M please"CHR$(X) M type"CHRSCX)"a M 
CHR$(X) ,, nuniber"STRIHG*<3 l X>* , to M S 
TRINGS <4, X) ; : POKE1505, 42: POKE152 
7, 49: POKE1532, 55: POKE1533, 46: POK 
E1535.32: INSMNKEVS 

91 IF$=IBKEY*:IF IN*= MM THE8P0KE 
1534. 42;PLAYP2J: POKE1534, 10e:PLA 
YP2S:G0TO91 ELSE IF ASC(IH«)<49 
OR AGC(INt)>55 TUEN91 

92 TA=VALUN*):CLS 

93 REM********GET SAKE********* 

94 IHPUT'TYPE YOUR FIRST HARE, A 
SPACE AND THE INITIAL OF YOUR 
LAST NAME:- »; H»: F0RZ=1T0 TL 

: IF H$=H»(Z) THEN TS=Z: Z=TL:NEXT 
Z:GOT097 

95 NEXTZ: PRINT'SORRY, THAT IAME 
IS NOT OTI THE LIST. TYPE THAT A 
GAIN PLEASE. ,, :GOSUB70:G0T094 

96 REM*m***TUTORIAL********* 
97. SC=0:COLOR5,8:PKODE1,1:PCLS:S 
CREE51,1:L=22:S=8:Y2=14:PCLS:X1= 
20:Y1=10:C1=8:CS= M BEFORB YOU CAN 

ADD FRACTIONS TOGETHER THEY MUS 
T HAVE THE SAME NAME - THAT IS T 
HEY MUST HAVE THE SAME DENOHINAT 
OR.";GOSUB13 

98 GOSUB59:PCLS:X1=10:Y1=10:C1=8 
:CS='*IF THEY DO NOT HAVE THE SAM 
E DENOMINATOR THEN YOU MUST CHAN 
GE OHE - OR BOTH - SO THAT THEY 
ARB THE SAME.":G0SUB13:G0SUB59 

99 PCLS:X1=LO:Y1-10:C1=8:C4="TO 
DO THIS FIND THE SMALLEST SOMBER 

THAT BOTH DENOMINATORS WILL DIV 
IDE INTQ.":GQSUB13 

100 Y1=Y1+10:C1=7:CS="THIS IS CA 
LLED FIKDIHG THE LEAST COMMON DE 
NOMINATOR <L.C D. >" : G0SUB13 GOSU 
B59 

101 IF TA=7 THEH150 

102 PCLS:L=23:Y1=60:C1=7:C*="DO 
YOU WANT TO SEE THE LESSON FOR Y 
OUR KIND OF SUM?":GOSUB13:Yi=Yl+ 
10: C1=8:C$=" PLEASE TYPE <Y> OR < 
ff>.":G05UB13: IN*-INXEY» 

103 IN$=INKEY$:IF IM$=' f N M THEB15 
3 ELSE IF IHSO'-Y" THES103 

104 REH****1NTR0. TO DEMOS. X*** 

105 FCLS:Yl=i0:Cl=8:C$= M IN THE F 
OLLOWING VE V1LL USE GRAPES LIME 
S AND AN ORANGE TO DEMONSTRATE T 
HE FRACTI0NS.":G0SUB13 

106 X3=20:Y3=125:Z=1:GOSUB62:X3= 
80: Y3=125: Z=l: GOSUB64: X3=170: Y3= 
125: Z=l: G0SUB66 i G0SUB59 

107 LIHE(0,0)-t255,80) I PRES3T 1 BF 
;LINE<0, 174J- (255, 191), PRESET, BF 

108 Y2=14:X1=0:Y1=10:C1=7:CI= M A 
GRAPE VI LL REPRESEHT OHE-TENTH." 
:GOSUB13;A5=1:B2=10:Y2=0:X=10:Y1 
=152:G0SUB26 

109 Y2=14:X1=0: Yl=40: Cl=6: G»="A 
LIME VILL REPRESENT ONE-FIFTH-": 
GOSUB13: Y2=0: X= 107: Yl= 120: B2=5: G 
OSUB26 

110 Y2=15;X1=0; Y1=70:C1=8:CS="TH 
E ORANGE VILL REPRESENT ORE-HALF 
, " : GOSUB13: Y2-0: X=207 ; Yl=120: B2= 
2:G0SUB26:G0SUB59 

111 LINE(0,0)-C255. 85), PRESET. BF 
:LIKE(0, 174 )-<255, 191), PRESET. BF 
:Y2=15:Y1=15:C1=6:CS= M A LIKE IS 
WORTH 2 GRAPES. ":GOSUB13: LINE (60 



,95>-<120,150>. PRESET, BF:X3=60:Y 
3=125: Z=2 : G0SUB62: GOSUB70 

112 C1=8:CS="AN ORA1TGE IS WORTH 
5 GRAPES. ":GOSUB13:LIHE(130,85>- 
(230, 160) , PRESET , BF: X3=140: Y3=12 
5 : Z=5 : G0SUB62 ! GOSUB70 

113 Cl=6:Ct=" LET'S SWAP GRAPES F 
OR TSUTHS.":GOSUB13;GOS<J370:G=0: 
H=17: I=70:J=32:GOSUB68:Cl=7:CS=" 
TENTHS" : Y2=0: X1 = 0: Yl=30 ! G0SUB13: 
A5=2:B2=10:X=60:Y1=152:COSUB26 

114 G=0:H=47; 1=70: J=62:G3SUB68:X 
1=0: Y 1=60: CS=" TENTHS" :G03UB13: A5 
=2^ = 10:X=60: Y1 = 152:C1=7:G0SUB2 
6:A5=5:X=173:Y1=152:G0SUB26:C0SU 

B59;PCLS 

115 ON TA GOT0117,117,124,124,13 
7,137,153 

116 RBM******TYPES 1 AKD 2***** 

117 X3-10iY3-20i2-3iGOSUB62tX3'-l 
60: Z=2: GQSUB62: Y2=15: X1=0: Y1=5Q: 
Cl=7: C*="3 GRAPES + 2 GRAPES" I 
G0SUB13:C1=6:C$="THB AHSVER IS 5 

CRAPES" :G0SUB13 

118 GOSUB70: Y1=Y1+10:C1=8:C$="LE 
T'S SVAP GRAPES FOR TEHTHS" : GOSU 
B13:Y2=0:C=20:H=3e; J=9Q:J=53:GGS 
UB68:Xl=20:Yl=50:Cl=7iCS="TENTHS 
";GCBUB13iG=165; I=240;GCSUB68; XI 
=G:GOSUB13 

119 G=185:H=54: 1=255: J=69:G0SUB6 
8:X1=G:Y1=Y1+15:GOSUB13:LIHE(0,8 
0)- (255, 110) , PRESET, BF: X=20: Yl=8 
0:A5=3:C1=7:B2=10:GOSUB26:X1=50: 
C*="V*:GOSUB13: Y1=8G:A5=2:X=70:G 
OSUE26 

120 X1=0 : Yl= 125 : CS="=" : GOSUB13 1 Y 
1 = 115: A5=5;X=2Q:GQSVB26;L=1Q;Y2= 
14:XL=70:Y1=125:C1=8:DRAV"C8":LI 
lTE(58,105)-<255.165>,PSET l B;C$= ,, 
IB A SUM LIKE THIS THE L.CD. IS 

PRESENT. " :G0SUB13: GOSUB70 

121 LINE (60, 107)-(253 ( 163),PRESE 
T, BF: Xl=70: ¥1=125: Cl=8: Ci="T0 Fl 
HD THE ASSVER JUST ADD THE NUMER 
ATORS. " : G0SUB13 : G0SUB59 

122 GOT0153 

123 REM******TYPES 3 AHD 4***** 

124 PCLS;L=22:Y2=14:X3=20;Y3=25: 
Z=2:GOSUB64: X3=170: Y3=3Q: Z=l: GOS 
UB62:X1=0:Y1=60:C1=6:C$="2 LIMES 

4" : GOSUB13: Xl=155: Yl=60 : Cl=7: 
Ct="l GRAPE" :GOSUB13:X1=0:C1=8:C 
£="YOU CANNOT ADD THESE BECAUSE 
THEY DO HOT HAVE THE SAKE NAME." 
: G0SUB13 

125 GOSUB70:C1=6:C$="LBT , S SVAP 
THE 2 LIMES FOR 4 GRAPES." :GOSUB 
13:0OSUB70 

126 LINE(0,0)-<90,60) 1 PRES£T ( BF: 
LINE (0, 174>- (255, 191) , PRESET, BF: 
X3=10!2=4:GOSUB62:X1=0:Y1=60:C1= 
7:CS="4 GRAPES":G0SUB13:LINE(0,6 
5>-(25S, 160), PRESET, BF:Y2=0:Y1=6 
5:CI=6:CS="THE ANSWER IS M : GOSUB1 
3:Y2=14: Xl=160: C1=7:C*="5 GRAPES 
":G0SUB13 

127 COSUB70:X1=0:Y1=100:C1=8:CS= 
"LET'S SVAP GRAPES FOR TENTHS-": 
GOSUB13:G=20:H=48: 1=90: J=65: GOSU 
B68: Y2=0!Xl=G!n=61:Cl=7:CB= M TEN 
THS" :GOSUB13:G=170: 1=240: GOSUB68 

:Xl=175:CS=*'TESTH M :GOSUBl3 

128 G=175:H=70: 1=255: J =88: G0SUB6 



8; Xl=180: Y 1=85 : CS=" TENTHS" : G3SCJB 
13; LIBR<0,90>- (255, 125), PRESET. B 
F:Y2=14:X1=0:Y1=105:C1=8:C$^'VHA 
T VE HAVE DOME IS LIKE THE SUM": 
GQSUB13 

129 Y2=0: Yl=140: Cl=6: A5=2: B2=5: X 
=20:GOSUB26:X1=40:C1=8:C$= M + M :GO 
SUB13:X=60:Y1=14 0:C1=7:A5=1:B2=1 
0sGOSUB26:GOSUB59 

130 PCLS: Y1=20:C1=6:A5=2:B2=5:X= 
20: U0SUB2b; Xl=40 : Cl=8: C4="+": GOS 
UB13; X=60: Yl=20: Cl=7: A5=l: B2=10: 
GOSUB26:GOSUB75: Y2=14: Xl=7: Yl=13 
7:C1=6 

131 C*="WE SVAPPED THE 2 LIKES F 
OR 4 GRAPES,";GQSVB13;GGSVB?0;GQ 
SUB77:Y1=137:C*="SVAP THE 2-FIFT 
HS FOR 4-TENTHS. ":GOSUB13:G0SUB7 


132 Y2^0!X1^0!Yl-65iCl-fliCf '= M ! 
GOSUB13:X=20:Y1=55;C1=7:A5=4:B2= 
10:GOSUB26 : Xl=60-:Cl=8:Ct="+ ,, :GOS 
UB13: X=85: Yl=55: Cl=7: A5=l: GOSUB2 
6:GOSUB70:GOSUB77 

133 Y2=14:X1=30:Y1=137:C1=8:C$=" 
NOV ADD THE NUMERATORS TO GET 5- 
TESTHS.":GOSOB13:X1=0;Y1=100:C1= 
7:CS="=":GOSUBi3:Y2=0:X=20: Yl=90 
: A5=5: G0SUB26: GOSUB59 

134 PCLS:L=23:Y2=14:Y1=20:C1=8:C 
1="IN THE KIND OF SUM YOU JUST S 
AV THE FIRST DEHOMIHATOR (5: VAS 

A FACTOR OF THE SECOND (10)." :G 
OSUB13:Y1=Y1+10:C1=6:CS="ALTER T 
BE FIRST FRACTION SO THAT IT HAS 

THE SAKE DENOMINATOR AS THE SEC 
OND. " : G0SUB13 : GOSUB59 

135 GOT0153 

136 REM******TYPES 5 AHD 6*»*** 

137 PCLS:L=22:X3=20:Y3=55;Z=2:GO 
SUB64: X3=200: Y3=45: Z=l: GOSU366: Y 
2=14:Xl=0:Yl=90:Cl=6:Ct="2 LIMES 

4" : GQSUB13: X1=155: Yl=90 : Cl=8; 
CS="1 ORANGE" :GOSUBl3:Xl=0:Yl=Yl 
+5:C1=7:C$="Y0U CANNOT ADD THESE 

BECAUSE THEY DO NOT HAVE THE SA 
ME NAME, ";GQSUB13 
136 GOSUB59:LIME<0,95>-t255 ( 191> 
.PRESET, BF:Yl = 120:Cl=6:CJ= n LET'S 

SVAP THE 2 LIMES FOR 4 GRAPES." 
:GOSUB13:G0SUB70iLINE(G,0)-(90,9 
2) , PRESET, BF:X3=10: Y3=60:Z=4: GOS 
UB62 

139 Y1=90:C1=7:C*="4 GRAPES* : GOS 
UB13:GOSUB7O:LINE(O,95)-(255,140 
) . PRESET, BF: Yl=120: Cl=6; Ct="SWAP 

THE ORANGE FOR 5 CRAPES. " :COSUB 
13:GOSUB70: LINE (145,0)- (2+5, 92), 
PRESET, BF 

140 X3=150:Y3=60:Z=5:GOSUB62:X1= 
155: Y1=90:C1=7;C$="5 GRAPES": GOS 
UB13:GaSUB70:LINE(0,95)-(255,180 
) , PRESET, BF : X1=0: Yl=110: Cl=6: C$= 
"THE ANSVER IS" :G0SUB13: Xl=160: Y 
1=110: C1=7:C»="9 GRAPES" : GOSUB13 

141 GOSUB70:X1=0:Y1=130:C1=8:C*= 
"NOV SVAP GRAPES FOR TENTHS." :GO 
SUB13:G=20:H=76: 1=90: J=92: G0SUB6 
6:Y2=0:X1=20:Y1=90:C1=7:CS="TENT 
HS" : GOSUB13 : G=L70: 1=245: GOSUB68: 
X1=175:GQSUB13 

142 G=180:H=98: 1=255: J=113:G0SUB 
68: Xl=180: Yl=llO: COSUB13: GOSUB70 
:LIHE(0, 115 )- (255, 150), PRESET, BF 



:Y2=14:X1 = 0:Y1=130:C1=8:CS= ,, VHAT 
VE HAVE DONE IS":0USUB13: Y1=Y1+ 
10:C$="LIKE THE SUM" :GOSUB13 

143 Y2=0:X=170:Y1=150:C1=6:A5=2; 
B2=5:GOSUB26:X1=190:C1=8:C*="+"; 
GOSUB13: X=210: Yl = 150: A5 = l: B2=2: G 
OSUB26;GOSUB59;PCLS;X=2S;Y1=20:C 
l=6:A5=2:B2-5:GOSUB26:Xl=48:Cl=8 
:CS="+";GOSUB13:X=71:Y1=20: A5=l: 
B2=2:GOSUB26 

144 GOSUB75:Y2^14:Xa=15;Yl=137;C 
1=6:C$="VE SVAPPED THE 2 LIMES F 
OR 4 GRAPES. ":GOSUB33 

145 GOSUB70:GOSUB77;X1=5:Y1=137: 
CS="SVAP THE 2-FIFTHS FOR 4-TEBT 
HS. " : GOSUB13 : GOSUB70 : Y2=0 : X1=0 : Y 
1=65: Cl=8: CJ="=" : GOSUB13: X=20: Yl 
=55:Cl=7;A5=4;B2=10iGOSUB26;XiM 
8 : Yl=65: CI =8 ; CS=" +" : GOSUB13 

146 GOSUB77: Y2=14:X1=4: Yl=137: CI 
=8:C*="VB SVAPPED THE ORANGE F03 

5 GRAPES. ":G0SUB13:GOSUB7O: GOSU 
B77:X1=15:Y1=137:C1=6:CS="H0V S? 
AP THE 1-HALF FOR 5-TENTHS.":G03 
UB13:GOSUB70 

147 Y2-0:X=65:Y1=55:C1-7:A5=5:B3 
= 10: GOSUB26: GOSUB70 

148 GOSUB77: Y2=14: X1=15: Yl=137 : 3 
1=B:C*="ADD THE NUMERATORS ."; GOS 
UB13:GOSUB7t>:Y2=0:Xl=0:Yl=100:C* 
="=":GOSUB13:X=20;Y1=90:C1-7:A5^ 
9 ; GOSUB26 1 GOSUB70 : L I NE CO , 120 ) - (2 
55. 170). PRESET, BF:G0SUB59 

149 PCLS:Y2=14:X1-10:Y1=15:C1=8: 
C*="3M THE EXAMPLE VE JUST SAW, 
THE L.CD. VAS HOT PRESENT .": GOS 
UB13:Yl=Yl + 10:Ca="BOTH FRACTIONS 

VERE ALTERED TO A COMMON DENOMi 
SATOR. " : GOSUB13: GUyUBby 

150 PCLS:X1=10:Y1=14;C1=7; IF TA= 
7 THEHCt= M IH SOME CASES THE L. C. 
D. IS PRESENT. ":GOSUB13:Y1=Y1+10 

151 C1=S:C$="IN MOST CASES. THE 
L.CD. CAN BE FOUHD BY MULTIPLYI 
HG THE DENOMINATORS - GETTING 1H 
EIR PRODUCT" :GOSUB13:GOSUB59 

152 PCLS: Y1=14;C1=8:C$="S0HBTIKE 
S IN A SUM, THE L.G.D. IS LESS T 
HAN THE PRODUCT OF THE TVO DENOM 
1NATORS.":GOSUB13:Y1=Y1+10:C1=7: 
C*="E.G. IF THE TVO DEHOMINATOPS 

ARE 4 AND 6 THEIR PRODUCT IS 24 
BUT THE L.C.D. IS 12.":GOSUB13: 
GOSUB59 

153 IF TA=7 THEN154 ELSE IF TA/2 
<>IITT(TA/2) THEN157 

154 PCLS:L=23r Yl=10: Cl=7: C*=" IF 
THE ANSWER IS AN IMPROPER FRAC7I 
ON YOU MUST CHANGE IT TO A MIXED 

HUMERAL. ":GOSUB13 

155 Y2=0:Y1=Y1+20:C1=8:CS="SAY T 
HE ANSVER IS" :G0SUB13: Yl^Yl-10 X 
=220: A5= 15: B2=ll : GOSUB26: Yl=Yl+4 
O:Xl=0:C4="THIS IS EQUAL TO": COS 
UB13:S=12:X1=220:C$="1 M :GOSUB13 

156 S=B:Y1=Y1-12:A5=4: X=234:G0SU 
B26:GOSUB59 

157 PCLS:L=23:Y2=14:C1=8:IF TY=2 
THEHY1=50:CS="IF YOU HAVE VHOLE 
NUMBERS IN THE SUM, AJ)D THEK FI 

RST AND THEN PROCEED AS USUAL.": 
G0SUB13 : G0SUB59: PCLS: Cl=8 

158 Y1=75:C*=" WOULD YOU LIKE TD 
SEE THAT AGAIN?";GGSUB13:Y1=YU1 
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0:C*="PLEASB TYPE <Y> OR <H>.":G 
OSUBL3: IHS=IHKEY$ 

159 IHS=IIKBYS:IF IH$="Y" THBH97 
ELSE IF IHSO"H" THEH159 

160 REM*GEHERATB THB FRACTIONS* 
151 PCLS:L=22:S=8:IU*0:VA=0:FORZ 
=iTQS;HL(Z)=0;MEXTZ 

1€2 C1=8:X1=0:Y1=90:CS="JUST A K 
3XEHT PLEASB.":GOSUB13: IP TA=7 T 
HEW TZ=RHD<6) ELSBTZ=TA 

163 OH TZ GOT01O4, 164, 171,171,17 
8,178 

164 B=RHD<1$)+1:A=RSD(B-1):C=RID 
<B-1> 

1-65 IF TZ=1 AHDA/B+C/B= > 1 THEH 16 
4 

166 IF TZ=2 AHD A/B+C/B=<1 THEH1 
54 

167 Bl=A:B2=A:D2=B:CD=B:GOSUB32: 
IF CDOB THEH164 

166 Bl=C:B2 = C:D2=B:CD=B:GOSUB32: 
IF CDOB THEH164 

169 A1=A:A2=C:A3=A+C:D=B:IF TZ=2 
THBH A4=A+C-D 

170 GOT0189 

171 B=RHD(8)+1:A=RHD<B-1):D=B*<R 
SD<4>H>;C=RHD<D-1> 

172 IF TZ=3 AHD A/B+C/D=>1 THEH1 
71 

173 IF TZ=4 AHD A/B+C/D=<1 THEH1 
71 

L74 CD=B:Bl = A:B2=A:D2=B:GOSUB32: 
IF CDOB THEH171 

175 CD=D:B1 = C:B2=C:D2=D:G0SUB32: 
IF CDOD THBH171 

176 A1=A*D/B;A2=C:A3=A1+A2: IF TZ 
=4 TBEH A4=A3-CD 

177 G0T0169 

178 B=RHD(9)+l:A=RHD(B-l):D=R)rD( 
9)+l;C=RHD(D-l) 

179 IF B/D=IHT(B/D) OR D/B=IHT<D 
/B) THEH178 

ISO IF TZ=5 AHD A/B+C/D=>1 THEH 

7B 

t«l IF TZ=6 AHD A/B4C/D=<1 THEH1 

7fl 

lfl2 CD=B:Bl = A:B2=A:D2=B:GgS0B32; 
IF CDOB THEH176 

L63 CD=D:B1=C;B2=C;D2=D;G0SUB32: 
IF CDOD THEH176 

164 IF 8<D THEH B1=B: B2=B: D2=D E 
tSE rF D<B THEH B1=D: B2=D:D2=B 
185 CD=B*D:C0SUB32 
166 IF CD>50 THBH17e 

i«7 A1=CD/B*A:A2=CD/D*C:A3=A1+A2 

: IF TZ=6 THEH A4=A3-CD 

158 REK***PUT THE SUM OH SCREES 

1-89 PCLS:Y2=0:LIHB<O,0)-<255,17> 

t PSET.BF:LlHE(68,2>-<185 ( 15),PRE 

SET, BF: Xl=73; Yl=14; Cl=6: CS="H F0 

S HELP":GOSUB13 

190 K=0:DRAV"C6":CG=170:LIIE(0,C 
G)-(255,CG+20),PSET,3F:LIHB(35,C 
G+4)- (218, CC+16) . PRESET. BF: H0=IU 
U:Z<1>=20;Z<2)=34:Z<3>=36:Z(4>* 
36;Z(5)=42;Z(6)=46:Z<7)=49:Z(8)= 
52: IF TY=1 THEH193 

191 V1=RBD<4):V2=RHD(4);AV=V1+V2 
: V1S=STRS <V1 ) : V2S=STR* <V2) ; AV»=S 
TRS(AV):V1S=RIGHTS(VL*,LEHCV1S>- 
l)iV2*=RIGHU(V2$,LEI(V2S)-l):AV 
5=RIGHT$<AV*,LEH(AVS>-1) 

1Q2 X1=15:Y1=Z<6):C1=6:S=12:C$=V 
U:GOSUB13;S=8 
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193 IF TY=1 THEH X=15 ELSE X=30 

194 Yl=Z(2):A5=A:B2=B:GOSUB26 

195 IF L6=l THEH Xl=X+20 ELSE XI 
=X+30 

196 Cl=7:C*= , '+ , ':G0SUB13;Xl=Xl+20 

197 IF TY=1 THEH199 

196 n=ZC6):Cl=8!S=12iCS=V2S:GOS 
UB13:S=8:Xl=Xl+20 

199 X^Xl: Y1=Z(2);C1=8:A5=C:B2=D: 
GOSU326 

200 X1=130:Y1=45:C1=6:H=1:H1=0:C 
t="L.C.D. - M :G0SUB13 

201 CD$=STRS<CD):CDS=RIGHTi(CD£, 
LEH(CDS>-1):LH=LEN(CD$):AN*=CD$: 
IF LH=1 THEH X2=240 ELSE X2=252 

202 DBAV"C7";LINE<223,Y1-15)-(X2 
,Y1+3),PSET,B:C1=8 

203 REM*****GET THE L.C-D. tttt* 

204 FORTT=lTO LH 

205 11-226 UTT 1)*10 

206 GOSUB36 

207 8EXTTT:LtHE<223 r Yl-15)-(X2, Y 
1+3). PRESET. B: IF Hl=l THEH LIHE< 
130, Yl+5) - (255, Yl+40 > , PRESET, BF 

208 PORZ=1T03:Z<Z>=Z(Z)+36:HEXTZ 
:X1=0:Y1=Z(5):C1=B:CS="=":GOSUB1 
3 

209 BEW********2HD. LIRE******** 

210 IF TZ<3 THEH237 

211 A1*=STR$CA1):A1*=RIGHT$(A1S., 
LENUlS)-l):LA=LEH(AlS) 

212 IF TY=1 THEHX=15:GOT0214 

213 DRAV**C?":LlHE(13 t Z<l)>-(27,Z 
<7> ) , PSBT, B: Xl=30: Y1=Z<5: : Cl=7; C 
*="+•• :GOSUB13:X=45 

214 X=1:Y1=Z<2):C1=6:A5=A1:B2=CD 
:GOSUB26:P1=A7:X1=X+LH*1G+10:C1= 
7iCS="+";G05UB13 

215 [F TZ=3 OR TZ=4 THEM K=0 ELS 
E K=l 

216 X=Xl+20:Yl=Z(2);Cl=a:A5=A2:B 
2=CD:G0SUB26:P2=A7 

217 IF TY=1 THEH219 ELSEX1-15:Y1 
=2(6) : Cl=8: S=12: H=2: H1=0: TT=1: CI 

=8;AHS=AV»:GOSUB36:S=8:LINE(13,Z 
U) )- (27, Z<7>>, PRESET, B 

218 IF Hl=l THEHLIHEU30 t Z<6)-I0 
>- (255, Z<6)>, PRESET, BP 

219 K=0: Yi=Z<2> : Cl=6: DRAVC7" :LI 
HE(PI-2,Z(1>)-(P1+LA*10,2(3)).PS 
BT,B:H=3:H1=0:AH«=A1S 

220 REK*****FIRST HUMERArOR***** 

221 FORTT=lTO LA 

222 X1=P1+(TT-1)*10 

223 GOSUB36 

224 HEXTTT:LIHB(P1-2,Z(1))-(P1+L 
A*10,Z(3>), PRESET, B 

225 IF Hl=l THEtf L1HEC127.Z (3)-l 
4)- (255, Z(3)419) , PRESET, BF 

226 REM****SECOHD HUKERAK)R***** 

227 IF TZ=3 OR TZ=4 THEH235 

228 A2*=STRS(A2):A2S=RIGHT$(A2S, 
LEH(A2*>-1);LA=LEH(A2$):AHS=A2* 

229 DRAVC7" : LIHE(P2-2, Z(l) )-<P2 

+LA*10.Z<3)),PSET.B:C1=8:H=4:H1= 


230 PORTT=lTO LA 

231 X1-P2+(TT-1)»10 

232 GOSUB36 

233 HEXTTT:LINE(P2-2,Z<1))-(P2*L 
A*10, Z (33), PRESET, B 

234 IF Hl=l THBH LME(127,Z(3>-1 
4)- (255. 2(3) +19), PRESET . BF 



235 FORZ=1T08:ZCZ)=Z(Z)+36:FEXTZ 
:Xl=0:Yl=Z(5):Cl=8:C4= ,fr = , ':GOSUBl 
3 

236 REX*******THIRD LIHE******* 

237 A3$=STR$(A3>:A3S=RIGHT»\'A34» 
LEN(A3S)-1):LA=LEH(A3*):IF TY=1 
THEHPl=15:GOT0241 

238 IF TZ=>3 THEHX1=15:Y1=Z<6):C 
$=AVS:S=12;G0SUB13:P1=45:S=8 

239 IF TZ=2 OR TZ=4 OR TZ=6 THEH 
X1=30:Y1=Z(5>:C1=7:CS="+":GUSUB 

13:P1=45 ELSEP1=30 

240 IF TZ=1 OR TZ=2 THEHDRAVX7" 
:LIHE(13,Z<1>)-C27,Z<7)) 1 PSET ( B 

241 X=P1:Y1=Z(2>:C1=6:A5=A3:K=1: 
B2=CD;G0SUB26:K=0:P1=A7 

242 IF TY=1 THEN245 

243 IF TZ<3 THEHX1=15:Y1=Z(6):C1 
=6:S=12:H=5: H1=0: AHS=AV*:TT=l:GO 
SUB36 ; 3-Q:LIHE<13,Z<l))-<27,2(7) 
). PRESET ,B ELSE245 

244 IF HI=1 THES LIBE(130,Z(6)-1 
0) - (255 , Z (6) ) , PRESET, BF 

245 C1=8:DRAV'C7":LIHECP1-2,Z(1) 
) - <Pl+LA*10-t2, Z<3) ) , PSBT* B: 8=6 : H 
1=0:AH1=A3»: Y1=Z(2) 

246 REXmmGET ITERATOR****** 

247 F0RTT=1T0 LA 

248 X1=P1+(TT-1>*10 

249 G0SUB36 

250 HEXTTT:LIHB<Pl-2,2Cl))-iPl+L 
Atl0+2, Z (3) ) , PRESET, B 

251 IF Hl=l THENLIHB(85,Yl-5>-(2 
55,Y1+7),PRESBT,BF 

252 IF TZ=1 OR TZ=3 OR TZ=5 THEH 
271 

253 FORZ=1T08:Z<Z)=Z(Z)+36:1EXTZ 
:X1=0:Y1=Z(5):C1=8:C$= ,, =":G0SUB1 
3 

254 REMX***XX**LAST LIKE******** 

255 A4S=STRS(A4>:A44=RIGHT»:A4$, 
LEH(A4tl-l>:LA=LBH(A4S) 

256 X=30;Y1=Z<2>:C1=8:K=1:A5=A4: 
B2=CD:G0SUB26;K=0:P1=A7 

257 DRAVX7":LINE(13,Z<1))-;27,Z 
(7)),PSET,B 

258 IF TY=1 THEH AHS="1" ELSE AV 
= AV+1: AV»=STR$(AV) : AV4=RIGHT*<AV 
$,LEH(AVS)-l):A!r$=AV4 

259 REM***GET THE VHOLE HUMBER** 

260 X1=15:Y1=Z(6):S=12:H=7:11=0: 
TT=l:GOSUB36:S=6:LIHE(13,Z(l>)-< 
27, ZC7)). PRESET, B 

261 AHt=A4t 

262 DRAV"C7 M :Y1=Z(2):LIHE(PI-2.Z 
(1) )-(Pl+LA*lQ+2 l Z(3) > t PSBT, B: H= 
8 

263 FEM****GET THE HUMBRATOR**!* 

264 F0RTT=1T0 LA 

265 X1=P1+(TT-1)*10 

266 GOSUB36 

267 NEXTTT 

268 LIHE<Pl-2,Z<l))-<Pl+LA*l0+2» 
Z (3)), PRESET, B 

269 IF Hl=l THEH LIHEdOO. Yl-15) 
- (255, Yl+15) , PRESET. BF 

270 REHt****HADB IT THROUGH***** 

271 X1=38:Y1=CG+15:C$="C0HGRATUL 
ATI0N5" ; GOStfBIS: G0SUB70: PCLS 

272 PM0DE2,l:PCLS5:SCREEHl,t:PC0 
PY3T01 : PLAY" T100L100O1V30CFDEGV2 
2ABGFVHGABDV7EFABGEDA" 

273 Rl=21+(HU-l)*51:FORZ=66T02ST 
EP-1;PUT(R1,Z)-<R1*-10,Z+18),R,PS 



ETTHEXTZiFORZ-lTOiei^BKEl.S)-^ 
1+10.20) ,RD,G: PUT <R1, 0>- ;R1-H0, 1 
8>,RD.P5ET:HEXTZ 

274 FORZ=lTQ500:HEXTZ:PC0PYlTO3: 
PCLS:PM0DEI,1;SCFEES1,1 

275 IF HU<5 THEN162 

276 REM*******NEXT PLAYER******* 

277 L=23: Y2=0:X1=50: Yl=73: C1$="H 
EXT PLAYER" :FORZ= 1TO LEHiC14>:Cl 
=RHD(3)+5;C$=KIDS<Cl$,Z.i):C0SUB 
13:X1=X1+12:HEXTZ:FORZ=1T01000:H 
EXTZ278 X1=36;Y1=95:C1$= M PRE5S < 
BHTEE>":FORZ=lTO LEN<C1$: :C1=RHD 
(3)+5:CS=HID$(CU,Z 1 l):G0SUB13;X 
1=X1+12:HEXTZ:Y2=15:C1=6:X1-0:Y1 
*160:Ct=" PRESS <E> TO ERD SESS10 
N.":GOSUB13: INi=IHKEY$ 

279 REM*****VHO HEEDS HELP?***** 

280 !F HL(1)>2 THEN KIDJCRKTS), 
1,1>="*":TT<1)=TTU> + 1 

281 ;F TZ=3 OR TZ=4 AND HL<3)>2 
THEH KID$<R*<TS),2,1)="* , ':TT(2) = 
TT(2)+1 

282 IF TZ=5 OR TZ=6 AHD HL<3)+HL 
(4)>4 THEN HIMCKSCTS), 2, !>="*": 
TT(2J=TTC2>+t 

283 IF HL<7>+HL<6>>2 THE* XIDiCR 
S ilS) , 3, 1 >="*" : TT(3) =TT (3)4-1 

284 IF VA>3 THEH HID* (RSCTS) ,4, 1 
)="*";TT(4)=TT(4> + 1 

285 IH$=INKEVS:IF IN$="E" THEH28 
9 ELSE IF IHSOCHR*Q3> rHEH285 

286 PC0PY4T03:CLS:GQT094 

287 REK*******<E> PRESSED******* 

288 REM*****VAS IT TEACH3R****** 

289 CLS 

290 [BPUT"TYPE YOUR FIRST NAME, 

A SPACE AHD THE INITIAL OF YOU 
R LAST HAME:-";NS; IF N*<>"ZZZ 
Z" THEWPRIHT'SORRY, THAT SAME IS 
HOT OH THE LIST. TYPE THAT AG A 
IH PLEASE. ";GOSUB70:GOTO29G 

291 REM*******PRINT NAHES******* 

292 ELS:SC=1:F0RZ1=1T04 

293 IF TTCZ1)=0 THEHC$= H NO-ONE H 
EEDS HELP IN " ELSE IF TT<Z1)=1 
TMfiH C*="THIS USER SEEDS HELP IH 

" ELSE C*=" THESE USERS NEED HEL 
P IH « 

294 IF Zl=l THEH C2*="F1NDING TH 
E L.C.D. ." ELSE IF Zl=2 THEN C2S 
^'EQUIVALENT FRACTIONS." ELSE IF 

Zl=3 THEN C2S="CHANGIHG IMPROPE 
R FRACTIONS TO MIXED NUMERALS." 
ELSEC2S="TABLES." 

295 L=31:CS=CS+C2S:GOSUB13: IF TT 
(Z1>=0 THEN G0SUB72:G0TC299 

296 X=0:FORZ=1TO TL: IF HID$<RS<Z 
),Z1, 1)="*" THENPRIHTH$-<Z):X=X+1 

297 IF XO0 AHD X/lO=IHT(X/10) T 
HENGQSUB72;CiS 

298 SEXTZ:PRIHT"THER£ ARE HO MOR 
E NAHES. ":GOSUB72 

299 CLS:HEXTZ1 

300 REH*******RUN AGAtH?******* 

301 CLS;PRINT"<R>UN PROGRAM AGAI 
N OF <E>HD": PRINT: PR INT'PLEASE T 
YPE CR> OR <E>.": IN*=IHKEY$ 

302 INS-IHKEY5: IF IBS= ,B P" THEN B 
UH ELSE IF IHS.O"E" THEB302 

303 CLS: END 

304 REHm**CHARACTER DATA****** 

305 DATABR2,BR2UBU2U2BRBD5 t BU5HD 
BR3EBD4.BRUHLU3HLNURHUHSD3HLJIRDB 



Australian Bush Songs 



16K ECB 

MUSIC 

IN THE EARLY days of 

Australian history, long 

before radios and record 
players Blade us lazy, settlers 
hod to n&ke their own music. 

Many of the songs brought from 
the "old country" were 

inappropriate, or too 

sophisticated for the simple 
mouth nrgrtn.R, nnt.tnn ncr.nrd lATtft, 
flutes and stringed instruments 
of the day, and so new, simple 
songs were written or Just 
"grew** to their present accepted 
form of tune and words. 

1 have found that the old 
Australian bush ballads fit In 
very well to the simple 1-part 
capability of the CoCo, and I 
have programmed a large number 
of folk songs and shanties which 



R, BRUHLREHL2URHUR2BD4 . BR3NUBL3UE 
3UBL3DBD4BR3.BRHENF2HEFGBD2RBBD, 
BU5BRRDG&D3BR2, BR2HU3EBRBD5.BREU 
3HBD5BR2, BRBUE3BD3NH3BDBR, BU3BR2 
DSLNRDBD&R 

306 DATABftUNRD8SUDG&U2Bft3 ( BfteU2R 
2BD2, BRRULDBR2, BUBRRBU2WL3NR2BU2 
LBD5BR3.BRHU3ERFD3GLBR2.R2U5HLD5 
R 

307 REM***UE3UBD5 

3QB DATA HR3UEREV2LLGBD4BR3.BUFR 
EUHHLEUL3BD5BR3, BR3U5D3L3UE2RBD5 
, BUFREUHL2U2R3BD5, BUHUFREUHLGU2B 
RBD5BR, BU4UR3D2G3BR3, BUHUFREUHLN 
GHERFCBTSBR. BRRElttHLGuFPRMW, BR2 
UBU2UBD4BR 

309 DATABR2URD2GBU5URDLBD3BR.BR2 
H2UE2BD5BR.BRBUNR2BU2R2BD3, BRE2U 
H2BD5BR2, BR2UBUUREHL2BD5BR3 , , U2N 
R3U2ERFD4 

310 DATA U3HR2U2R2FGFDGL2BR3.BUU 
3ERFBD3GLHBDBR3,U5RF2DG2LBR3,HR3 
U3HR2U2R3BD5, U3NR2U2R3BD5, BUU3ER 
BRBD3 NLEGLHBDBR3 , U3HU2R3NU2E3 . BR 
U5BD5BR2, BUFEU4NRL2BD5BR3. V5D2RB 
2G2F2D. BU5R3 , U5P2HDH2D5 , U5F3U3D5 

311 DATABRHU3ERFD3GLBR2.U5R2FDGL 
2BD2BR3.BUU3ERFD3HHHFGLHBDBF3, U5 
R2FGL2F3, BUFREUHL2UERFBD4 

312 DATA BRU5LR3BD5>NU5R3U5BD5.B 
U5D3FDRUEU3BD5,NU5E2HUF2HU5,UE2H 
2BR3DGFD2, BU5D2FRD2HLU2EU2BD5, HR 
3UE3UL3BD5BR3 

313 REH*******CLASS NAHES******* 

314 DAT/NIGEL B, TREHT B.DAHJEL B 
.GRANT B.RYAH C, TROY C, JOHS D. KE 
RRY E.GAVIN G, SCOTT G.JtATTHEV H, 
CHRIS K.FAUL L,BRENDAH L, SCOTT H 
, DAMON 0.DUC P, BRENDAN P, KEK R, A 
DAH R, JUSTIN R.SEAN R.J0HH 7 

O 



by Mai McLaughlan 



with 



great 



I listen to 
enjoyment . 

It seems that few of. the hard 
working settlers and miners knew 
much about chords, and were 

happy to whistle or hua the 

tunes as they panned for gold or 

6a t around the camp-fire. 

Let's keep those days alive, 
especially through the 

bl-centennial year (1988), even 
if we have to do It with that 
modern miracle, the tune-humming 
computer! 

Here are three old tunes that 

you can quickly learn to hun 
yourself. 



The Listing: 



1 '****AUSTHALIAW BUSH SONGS**** 
*****£ET BY HAL HCLAUCHLAK****** 

m*mmAPRiL, 1987*********** 

2 GOTO 10 

3 SAVE"215:3":EBD , 7 

10 CLS2: PR 1*^223," THE COCKIES 

F BUNGAREE"; 

20 PLAY"T402L8A03L4DL8DL4DL8DL4D 

L8DL4F#L9F#L4EL8ELBDL8DL4.DL8DPe 

ii 

30 PLAY"03LfiF#L4CL8GL4Gt8F#L4ELe 

EL4EL8DC#C#C#L4AL8AL4. AL8AP8" 

40 FLAY"Q3L16AAL4BLflBL4BL6AL4GLe 

F*L4EL8EL4AL8AL4AL8GL4.F*LBF#P8" 

50 PLAY"02L16AA03L8DDDL4DLeEL4F* 

L8GL4AL8GL4F*L8DL4EL8C#L4.DL4D" 

60 PLAY"P1" 

70 CLS2:PRl)rr$237 ( "JACK"; 

80 FOR RPT=1 TO 2 

90 PLAY"T203LBDF#L16AAAAL8BBL16A 

L8.F#L16DL8.F*L8ABL16AL6.F#L4E" 

100 PLAY'*03LSDF*'L16flAL6ABBL16ALo 

. F#L8 . DL16EL8FL16EDL8ED02L4B" 

110 PLAY"02L16BB03L8D02L16AA03L8 

DF#BAF#LL6EL8EL16ELaFd'LBEL4.DP8" 

120 HEXT RPT 

130 PLAY"P1" 

140 PLAY' , Pr:CLS2:PRIHT$200,"0 

IVE HE A HUT" ; 

150 PLAY M T203L8DO2BO3DDEDDO2BO3D 

GB" 

160 PLAY"03L16BB04L8C03EEL16AAL8 

BAAGEL4D" 

1V0 PLAY"O3LlbDLKJ^L8BU3DDEDDO2B0 

3DGL4B" 

180 PLAY"03L16BB0418C03EEL4AL16A 

AL8ABAL2G M 

190 CLS2:PRIHT(9233 ( "T HE END 

200 GOTO 200 
O 
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by David McKeand 



TATT3L0TT0 DRAV Is an 
application which chooses 
your tattslotto numbers 
in a different way! 

The computer draws a grid with 

numbers ranging from 1 to 46 
inside each box. Each number 
picked Is coloured In green. 

Thu bui U*fi ot the screen is 

filled with optifflisa, le around 
the edge of the screen the word 
"WIN". 

So with all these great 
features, who says that you're 
not going to win? 



The Listing; 



GOTO 10 

3 SAVE" 162: 3": END 1 10 

10 'TATTSL0TO DRAV by David Mcke 

and , Hobart 

20 'Something like 10% of wlnnin 

gs would be nice I 

100 POKE4HFFD9 ( 0:'HIGK SPEED PQK. 

E [ POKEaHFFDS.O RETURNS TO NORM 

AL 

200 OWBKK UUT07100: ' OH ERR G0TO95 

00 

300 V1DTH40:CLS6 

400 Lt=STR I NG$ < 14 , CHRs (20 ) > : LOCA 

TE13,1:ATTR6,6:PRINTL* 

500 L1S=STRIHGS<13,CHR$(20)):L0C 

ATE27,1:ATTR5,5;PRINT lit 

600 LOCATE13,2:ATTR6,6,B.U:PRINT 

"TATTSLOTO DRAW" 

700 L0CATE27.2: ATTR5.5. PRINT LIS 
:L0CATE13,3:ATTR6,6:PRINT L1S:L0 



IBIB^W 



CATE27,3:ATTR5,5:PRINT LI* 

800 LOCATE0.8: ATTR3.3: PHNT"Thls 

program will display 10 success 
ive TATTSLOTO DRAWS and print ou 
t the results if cesired." 

900 L2$=3TRIHGS<22,CHR6<20)):LOC 
ATE19,10:ATTR5,5:PRINT L2$ 
100C LOCATE0 ( 13;ATTR3,2:PRIBr If 

experimenting with the programn 
e be suie to revert ta normal s 
peed for printer, disk and 

ta«4etts operation. " 
1100 L3»=STRIHCS(3,CHRS<20)):LOC 
ATE37.15:ATTR5,5:PRI»T L3J 
1200 LOCATE6,18:ATTR6,5,B:PRIHT" 

Press any key to continue." 
1300 L0CATE7,23:ATTR7,5:PRINT"Pr 
ess <BREAK> to exit." 
1400 ZS=1NKEY$:IF Zi= M,t ~HEN1400 
150Q CLS4:CH-65:P=0:PR=1 
1600 L0CATE1.5:ATTR3.2:FRINT"Do 
you want a 10 game printout with 
out" 

1700 LOCATE39 ( 5:ATTR3,3:PRINT" " 
1000 L0CATE15,7:ATTR3,2:PRINT"gr 
aphlcs ?" 

L900 LOCATE25.7;ATTR3 ( 3:L4S=STRI 
SGSt 15, CHR$<20) ) ■ PHIBTUS 
2000 L0CATE15,15:ATTR6,5:FRINT"( 
Y) or CM)" 

2100 LOCATE25.15: ATTR3, 3: PRINTL4 
ft 

2200 SLS=1NKEY$: IF SLS="Y" THEN 
4000 ELSE IF SL$="" OR SL*<>"H" 

THEB 2200 
2300 'TATTSLOTO DRAV FRAME 
2400 [FCH>74 THEN 300 
2500 HSCREEN 2: HCLS4 
2600 HCOL0R 0,2: HPRINT (4. 2), "TAT 
TSLOTTO <CTRL> for next game.":H 
C0L0R2.1 

2700 FORVl=lTO23:HPRtHT<0, Vl),"¥ 
IN": NEXT 

2800 IF P=0 THEN 2900 ELSE F0RQ= 
3T035STEP3:HFRINT<Q,23>."VIN":NE 
XTiHPRINTOO.ZSi/'V" 
2900 FORV2=23T01STEP-i:HPRlNT<37 
1 V2» 1 "VIR M !MEXT 

3003 KOHV3=39TU0yThP-3:HPKiNT<W3 
.0) l "VIN":»EXT 
3109 HCOL0R8.5 
3200 'SETUP GRID 
3300 Y=32:FORHL -0 TO 6:HLINE<32 

, Y >- <288 , Y> . PSET: Y=Y+24: NEXT 
3400 Xl=32:F0RVL=0TO8:HLINE(Xl,3 
2>-<Xl. 176) ,PSET:Xl=Xl+32: NEXT 
3500 'HIGHLIGHT GAME LETTER 

3000 HCOLORfl,3: HrAtNT<258, 154), 3 

,8:HPRIHT(33,20>,CHRt(CH) 



3700 HPAINT<258,154),3.8:HPRIHT< 

33,20),CHRS<CH) 

3800 'DELECT RAHDOM NUMBERS 

3900 HC0L0R3.1 

4000 Tl = RND<-TIMER>:BA=RNDU5>:H 

B=RND(45 ) : NC=RNDC45) : BD=RBD<45> : 

RE=RKD<45>;NF=RSD<45> 

4100 IFNA=NB OR NA-NC OR NA=ND 

R NA=NE OR NA=NF THEH4O00 

4200 IFNB=NA OR NB=HC OR BB=ND 

R NB=NE OR NB=NF THEK4O00 

4300 IFNC=NA OR NC=NB OR KOBD O 

R NC=NE OR NC=NF THEN4O00 

4400 IFND^NA OR ND=NB OR ND=NC 

R ND=NE OR ND=HF THEB4O00 

4500 IFNE=NA OR NE=NB OR &E=NC 

P NE=ND OR NE=NF THEN4000 

4600 IFNF=NA OR NF=NB OR KF=NC 

R NF=fiD OR MF-NE THEH4000 

4700 IF SL$=CHR$<89> THEN GOTO 6 

400 

4800 'PRINT GRID NUMBERS 

4900 DATA 1.2, 3. 4,5,6,7.8, 9, 10. 1 

1, 12, 13, 14, 15, 16, 17, 18, 19, 20,21, 

22,23,24.25,26,27,28,29,30,31,32 

,33,34,35,36,37,38.39,40,41,42,4 

3,44,45 

5000 Xl=5iY=5 

5100 FOR X=X1 TO 33 STEP4 

5200 READ A 

5300 IFA=NA OR A=NB OR A=RTC OR A 

=HD OR A=NE OR A=NF THEN HPAIST( 

6*(X-.5),8*(Y-.5)),9,8:'SOUND150 

.2 

5400 HPR[NT(X-1,Y), A 

5500 IFX=21 AND Y=20 THEN 5800 

5600 NEXT X 

5700 Xl=5;Y=Y+3:GOTO5100 

5800 RESTORE 

b900 ' PHINiaUI" ROUTINE 

6000 IF P=l THEN 6100 ELSE HCOLO 

RG,2:HFRlNT<4,33>,"Do you want a 

printout <P> ?" 
6100 NX$=INKEY*: IF NX$="" THEH 6 
100 

6200 IF RXS=CHRt(80) THEN 6400 
ELSE IF NX$=CHR$U89> AND F=l TH 
EN 6700 ELSE IF HX»XCHRS(1895 T 

HEN 0100 ELSE CH=CHtl: GOTO230O 

6300 GDTO71O0 

6400 F0KE&HFFD8,0;P=1: IF P*>1 TH 

EN GOT0G700 

6500 PRINT#-2,CHR$<27) ;CHRt<14); 

" TATTSLOTO DRAV" j CH 

RS<27)jCHRt<15> 

6600 PRINT#-2:PRINT#-2 

6700 N1S=STR$<HA>;H2$=STRS<NB>;N 

3S-GTRS <NC) : N4£=STFt (HD> : B5S=STR 

S<NE):R6J=STRSCNF) q 
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WINDLESS 
WA^IDE 






by Ivor Davies 
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240 GOTO 100 


' ^V 


IP 






300 REM ... DISTANCE ... 


1^^ ;^,,f 


* 






301 F=3:B=2 

302 CLS3.ATTEF.B 


^^f^ jJMSIfti 


+*~* ' 






1 K «&* r - - 






305 LOCATES, 5 


kfl Ljf ^k ^^Hj^Pvl 


# 4 






310 INPUT " TIME IN HOURS"; T 


rjftS^K« # « 4 


4* 






315 LOCATES, 7 

320 INPUT " KATE IN KILOMETRES P 


1 JHf J^fe ^% 


^^ 


■s. ^1 






JgV §» ^ 


•* -^ 






ER H0UR";R 




k. 








330 D=K*T 














-. ^ 




335 LOCATES, 10 






m *1 




340 PRINT " AT"; R;" KILOMETRES PE 






-*-. 1 




R HOUR" 




w 


« A A 




345 LOCATE5.12 




w + 






350 PRINT " FOR"; T;" HOURS" 




w w 






355 L0CATE5.14 


-J Sf ^J 








360 PRINT " YOU VILL TRAVEL" 
365 L0CATE5, 16 
370 FRINT D; "KILOMETRES" 
380 GOTO 700 

400 REM .. . TIME .. . 

401 F=2:B=7 

402 CLS8:ATTBF,B 


The Listing: 


LCULATOR ..." 
130 LOCATES ,8 




405 LOCATES, 5 

410 INPUT » DISTANCE IN KIL0HETR 


1 '*** 3CAKCALC *** 


140 


PRINT " 1. 


DISTANCE TRAVEL 


BS";D 


2 GOTO 10 


ED?' 






415 L0CATE5.7 


3 SAV="184D:3 M :END 


145 


LOCATES, 10 




420 INPUT " KATE IN KILOMETRES P 


4 'ORIGINAL AUTHOR UHKNOVf 


150 


PRINT " 2. 


TIKE REQUIRED?" 


ER HOUR";R 


5 'MODIFIED FOR COCO 3 


155 


LOCATES, 12 




430 T=D/R 


6 ■ BY 


160 


PRINT " 3. 


AVERAGE SPEED?" 


432 T=INTCT*I0+.5)/10 


7 ' IVOR DAVIES 


165 


LOCATES, 14 




435 LOCATES, 10 


8 'UPPER FERNTREE GULLY 


170 


PRINT " 4. 


FUEL ECONOMY?" 


440 PRINT " TRAVELING" ;D;"KI LOME 


9 ■ VIC. 80V. 1986 


175 


L0CATE8.16 




TRES" 


10 REX , , , CAR CALCULATOR . . . 


ISO 


PRINT " 5. 


EHD PROGRAK."; 


445 L0CATE5.12 


15 VIDTH40 


185 


L0CATB8,23:ATTRF,B>B 


450 PRINT " AT" ;R; "KILOMETRES PE 


20 PALETTE CMP; PALETTEO, 


190 


PRINT " 


SELECT <l-5>"; 


R HOUR" 


100 REM ... MENU . . . 


195 


ATTR5, 




455 L0CATE5.14 


101 F=5:B=0 


200 


K$=INKEYS: IF 


KS="" GOTO 200 


460 PRINT " VILL TAKE YOU" 


102 CLS1:ATTRF,B 


210 


SEL=ASC(KS>- 


48 


465 L0CATE5, 16 


110 CLS; PRINT: PRINT 


220 


CLS1 




470 PRINT rj"HUUKS" 


120 LOCATE10.3: PRINT "... CAR C 


A 230 OS SEL GOTO 300,400,500,600, 


480 GOTO 700 



45 



500 REM ... SPEED ... 

501 F=3:B=3 

502 CLS4:ATTRF.B 
505 LOCATES, 5 

510 INPUT « DISTABCE IS K1LOKETR 

ES" ; D 

515 LOCATES, 7 

520 INPUT " TIKE IB HOURS";T 

530 R=D/T 

532 R=IBT(R*10*.5)/10 

535 LOCATE5.10 

540 PRIST « TRAVEL ISO" iD/'KILOHE 

TRES" 

545 LOCATES, 12 

550 PRIST » IK"' ; T; "HOURS" 

555 LOCATES, 14 

560 PRIST " YOU VI LL AVERAGE" 

565 L0CATE5.16 

570 PRIST R;"KOaHBTRES PER HOUR 

580 GOTO 700 

600 REM ... L1TRES/10GKM ... 

601 F=2:B=5 

602 CLS6:ATTRF,B 
605 LOCATES, 5 

610 ISPUT " DISTANCE IS K1WHBTE 

RS" ; D 

015 L0CATE5.7 

620 ISPUT " FUEL IK LITRES";L 

630 E=INT(L/(D/10O>) 

645 LOCATES, 10 

650 PRIST ■» TRAVEL IKG lt ;D;"KI LOSE 

TRES" 

655 L0CATE5.12 

660 PRIST n ON**; L; "LITRES OF FUE 

L" 

665 L0CATE5, 14 

670 PK1NT " YUU VI LL AVERAGE" 

675 LOCATES, 16 

680 PRIST E;"LITRES PER 100 KILO 

METRES" 

700 REK ... MORE? . . . 

702 ATTRF.B.B 

705 LOCATE5.22 

710 PRIST M ANOTHER CALCULATIO 

B <Y,S)?"; 

720 K**ISKnYt: IF K«*" w GOTO 720 

730 IF KS="Y" GOTO 100 

740 CLS1 : ATTR7 , 

750 END 



The Listing: 



1 GOTO 10 

3 SAVE" 184: 3": END' 10 

10 '*** C0CO3 HIGH RES DEMO 

20 "*** BY I.DAVIES 

30 '*** UPPER FERNTREE GULLY 

40 '*** 19/10/86 

50 ON BRK GOTO 420 

60 PALETTE CMP 

70 PALETTEO.O 

80 PALETTE1.54 

90 PALETTE2.09 

100 PALETTE3.30 

110 HSCREEW4 

120 HCLSO 

130 HC0L0R3 

140 HLINE(5,5)-<635, 185>,PSET,B 

150 HLIBE(7,6)-(633, 184),PSET,B 

160 HC0L0R3 

170 FOR Y=20 TO 200 STEP10 

160 HLINE(Y,0)~(Y,191>,PSET 



190 NEXT* 

200 HC0L0R2 

210 FOR Z=10 TO 190 STE? 10 

220 HLINE(0,Z>-<20O,Z>.PSET 

230 NEXTZ 

240 HCOLOR3 

250 FOR A=0 TO 639 STEP 20 

260 HLINE<A 1 0>-(64O-A,191),PSET 

270 NEXTA 

280 FOR C-5 TO 75 STEP 10 

290 HC1RCLE(540,96>,C,2 

300 HCIRCLE<540,96),C42,2 

310 HC1RCLE (540.96), C+5,3 

320 NEXTC 

330 HCOLOR1 

340 HPRINTC46, 11), "Press" 

350 HPRIBT<49, 13), "Break!" 

3G0 S0UND150,3:S0UHD150,3:S0UND1 

50,3 : annum oo. in 

370 FOR P=0 TO 63 

380 PALETTE3.P 

390 FORDLA=l TO 100: NEXT 

400 NEXTP 

410 GOTO370 

420 PALETTE CMP: HSCREEN0:CLS: END 



The Listing: 



The Listing: 



1 GOTOIO 

3 SAVE"184C:3 M :EBD'G 

10 **** COC03 MEDIUM RES. DEMO 

20 '*** BY I.DAVIES 

30 ' *** UPPER FERNTREE GULLY 

40 '*** 19/10/36 

SO ON BRK GOTO 420 

60 PALETTE CMP 

70 PALPTTEO.O 
60 PALETTE1.54 

90 PALETTES, 09 

100 PALETTE3.36 

11C HSCREEN2 

120 HCLSO 

130 HC0L0R3 

140 HLIHE(5,5)-<317,1&5>,PSET,B 

150 HLINE(7,6)-<316,ia4).PSET,B 

160 HC0L0R3 

17C FOR Y=20 TO 100 STEP5 

18C HLINE<Y.0>-<Y,191>,PSET 

190 SEXTY 

20C HC0L0R2 

210 FOR Z=10 TO 190 STEP 10 

220 HLINE(O,Z)-<100,Z> 1 PSET 

230 NEXTZ 

240 HC0L0R3 

250 FOR A=0 TO 319 STEF 10 

260 HLINE(A,0)-<320-A,191),PSET 

27C BBXTA 

280 FOR C=5 TO 35 STEP 5 

290 HCIRCLE<270,96),C,2 

300 HCIRCLE(270,96),C+1,2 

310 HClRCLE(270,96),C+3,3 

320 NEXTC 

330 HCOL0R7 

340 HPRIBTC23, 11) ."Press" 

350 HPRIBT^.lS^'Breakl" 

360 SOUND150,3:SOUND150,3:SOUND1 

50,3:SOUND100, 10 

370 FOR P=0 TO 63 

380 PALETTE3.P 

390 FORDLA=l TO 100: NEXT 

400 NEXTP 

410 GOT0370 

420 PALETTE CKP:HSCREEB0;CLS; END 



I GOTOIO 

3 SAVE"1S4A:3":EKD'6 

4 'MEDIUM RESOLUTION DRAVIHG OF 
AHAT. THEH STEPS THROUGH 64 

COLOUPS AVAILABLE 

5 'TAKES APPROX. 20 MISS TC DRAV 
HAT OB SCREES. 

10 ' ***HAT*** 

II 'ORIGINAL SOURCE UNKNOWS 

12 'MODIFIED FOR COCO-3 

13 ' BY 

14 * IVOR DAVIES 

15 ' UPPER FERBTREE GULLY 

16 ' VIC 

17 ' 1986 
20 ' 

30 POKE65497.0 

40 ON BFK GOTO 470 

50 PALETTE CMP: PALETTEO, 

60 CLSi 

70 HSCREEN2 

80 HCOLORO 

90 HBUFF1,120 

100 HGET(200 1 160)-C220,170:,1 

110 P=130:Q=50 

120 XP= -10O:XR=l. 5*3. 1415927 

130 YP= 28:YR=1:ZP=32. 

340 XF=XR/XP:YF=YP/YR;ZF=XR/ZP 

150 FOR Zl = -Q TO Q-l 

160 IF ZK-ZP ORZI>ZP GOTO240 

170 ZT=ZI*XP/ZP:ZZ=ZI 

180 XL=IBTC.5+SQR<XP*XP-ZTxZT)) 

190 FOR XI = -XL TO XL 

200 XT=SQK(XI*XI+ZT*ZT)*XF:XX=XI 

210 YY=<SIB<XT>+.4*SIN<3*XT))*YF 

220 GOSUB 400 

230 NEXT XI 

240 NEXT ZI 

250 POKE65496.0 

260 HC0L0R1 ! HPRIBT (25, 14) , "Press 

270 HPRINT<27, 16), "Break" 
280 HPRIBT (29, 18) /'to END" 
290 FOP P=0 TO 63 
300 PALETTE3.P 
310 HC0LOR1 

320 HPRJBTUO, 20), "Color Code =" 
:HPRINT<25,20),P 
340 S0DSDRFD(255),1 
350 FOR DLA=1 TO 100:HEXT 
360 HP0T(2O0, 160)- (220, 170) , I , AS 
D 

370 NEXTP 
380 G0TO290 
390 GOTO 390 
400 X1=XX+ZZ+P 
410 Y1=YY+ZZ+Q 
420 HC0LOR3 
430 HSET(XL,Y13 
440 IF Y1=0 GOTO 460 
450 HLIHE(X1,Y1+1)-<X1,191»,PRES 
ET 

460 RETURN 

470 P0KE65496,0:HSCREER0: PALETTE 
CMP:CLS:ESD 
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The Listing: 



1 '*** TEST PATTERN FOR COC03 

2 GOTOIO 

3 SAVE"184B:3":EH1V6 

4 ' BY 

5 * IVOR DAVIES 

6 'UPPER FERHTREE GULLY 

7 ' VIC 

8 ' HOV. 1966 

10 OH BRK GOTO 480 

20 PALETTE0,0:PALETTE1,16:PALETT 

E2 , 32: PALETTE3, 48: PALETTE4 , 09: PA 

LETXE5, 17; PALETTE6, 33: FALETTE7 , 4 

9; PALETTE8, 02: PALETTE9, 47: PALETT 

E10,34:PALETTE11,63:PALETTE12,40 

30 CLS1 

40 HSCREEN2 

50 HCOLOR1 

60 HLIHE<0,0)-C320 ( 192), PSET, B 

70 HC0L0R2 

80 FOR X-10 TO 160 STEP 10 

90 HLINEU,0)-(160,96),FSET 

100 HEXT 

110 HCOLOR3 

120 FOR X=10 TO 160 STEF10 

130 HLIMEO20-X, 0>- (100,963 , PSET 

140 HEXTX 

150 HCOLOR4 

160 FOR X=10 TO 160 STEF1Q 

170 HLINEO20-X, 192)- (ICO, 96) , PS 

ET 

180 HEXT 

190 HCOLOR5 

200 FOR X=10 TO 160 STEF10 

210 HLIHE<X, 102>-(1$0,06>,PSET 

220 HEXT 

230 HC0LOR6 

240 FOR X=l TO 20 STEF2 

250 HCIRCLE(120.96),X 

260 HEXTX 

270 HCOLOR7 

280 FOR X=l TO 20 STEP2 

290 HCIRCLEC200,96).X 

300 HEXTX 

310 HC0LOR8 

320 FOR Y=10 TO 180 STEF10 

330 HLIKE(0, Y)-<100, 96> ,PSET 

340 HEXTY 

350 HCOLOR9 

360 FOR Y=10 TO 180 STEP10 

370 HI,IN£(220,96)-(320,Y),PSET 
380 HEXTY 

390 HCOLORO 

400 HLlKEU0O,lO)-(22O,20),PSBT, 

BF 

410 HCOLOR11 

420 HPRlHT(14,2>,"Test Fattern" 
430 HC0L0R12 

440 HLIHE<100,10)-(219,30) f PSET l 
B 

450 HLINEU01,U)-(21B,29),PSET, 
B 

4G0 HLINEU02,12)-<217,28>.F3ET, 

B 

470 GOTO470 

480 HSCREEN0:CLS: PALETTE RGB:EID 
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GRAPHICS 
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SKOLL IS A GRAPHICS program 
showing a grid at the 
bottom half of the screen 
with a denon-llke sltull In the 
top half. Occasionally a 

lightning bolt will strike the 
earth and occasionally the 

skull's eyes will light up. 
Like & Christmas tree! 



The Listing: 



G0T02 

1 SAVF'233:3":EHD'6 

2 'mmmm************* 

3 '****>****SKULL*********** 

4 ***t*J:*****BY**** ********* 

5 '*****STEVEN LEES-SMITH*** 

6 '******BALKAIH M.S. V****** 

7 , *********HAR' 67*********1: 
O ' ************************* 

10 PM0DE4 : SCREEH1 , 1 : PCLS 
20 DRAVBK55,30K69 ( 35K75,20K85,1 
5X1 15 , 25M130 , 27M145 , 25M170 , 13K18 
ft, 22M193 , 39H205, 30H190, 50X135, 35 

K175,27Ki58,40B*55, 30X72,50*78,3 

5H85, 30X103,40" 

30 DRAVBM115, 2511109,28X101,45 Ml 

03,55X115,708X145,25X155,30X158, 

40X162, 45M160, 55M155, 65H145, 70" 

4-0 DRAV"BM105,45K107, 37X110, 35F2 

M115.37R5K125, 41X124,44X125, 48X1 

20,50MI>&»45BK145 1 50rj5I135 i 43ia3 

7, 38X145, 37M148, 35X151, 37M155, 45 

K145.50" 

50 DRAV"BMl42,70U3F3X147 r 77G4K14 

A. 78*142, 75BL2U5L2G1D3BF1D1L3U4E 

1N139, 71BL3K135, 75L1H1G1L1M132 , 7 
1E2F2" 

50 DRAV"BX130,75L2H1G1K125.71E2F 
2X130, 75BL6M125,71H2Gi*121 t *'5R3B 
L5E2U2H1L2U3G3XH3,77F4X116,78X1 

18.75HR2U5" 



by Steven Lees— Smith 

70 DRAV"BX130,75U7H8U4E3U1M128.5 

1F2D12M125, 61X122, 60BX131.75U7E& 

U3H3U2M134, 49X131. 53D12X136.61M1 

39,60" 

80 PAIBT<85,16),l:PAIHT<170,14) t 

1 

100 'GROUHD 

110 L1HH(0.100)-(255,100).PSHT!D 

RAVBXO, 170R255BU20L255BU15R255B 

U10L255BU10R255BU5L255BU5R255" 

120 LIHB<0,125)-(126,100).PSET:L 

IirE-C0.150> 1 PSBT:LIHE(0,255)-<12 

8 , 100) , PSET: LIHE- <85, 191) , PSET : L 

IHE(170, 191J-(128,100>, PSET:LISE 

-(255, 191), PSET: LIHE (255, 150>-<1 

28, 100) , PSET: LIHE- (255. 125) , PSET 

149 FORT=1T0500;MEITT:COLOR1 

150 LIKE <245,0)- (230, 25), PSET: F3 
RT=1T030: HEXTT: LIRE- (235. 50) . PSE 
T:FORT=lTO30: HEXTT: LIME- (250,60) 
, PSBT; LIHE (235, 50)- (225, 65) , PSET 
:F0RT=lTO30: HEXTT: LIHE- (235, 85), 
PSET: F0RT=lTO30: IBXTT: LIHE- (225. 
99), PSET 

155 FORT=1T0300: HEXTT 
160 LIHE<245,0)-(230, 25), PRESET; 
L I SB- (235 . 50 ) , PRESE T : L 1 HE- (250 , 6 
0), PRESET: LINE (235, 50) -(225 ,65), 
PRESET: L HE- (235. 85 ) , PRESET: LI ME 
-(225.99), PRESET 

163 FORT=1TQ300: HEXTT 

164 LIHE (20, 0>- (35, 20), PSET: FORT 
=lTO30;HEXTT:LIHB-(25,40),PSBT;F 
ORT=ITO30;BBXTT:LIKE-(10,5O),PSE 
T: FORT=1T030: HEXTT: LIHE- (5 , 60> , P 
SBT:F0RT=lTO30:»EXTT:LIHE(25,4C) 
-(35, 65), PSET; FORT=1T030; HEXTT; L 
1KB- (25, 80), PSET: FORT=lTO30: SEXT 
T: LIHE- (40,99), PSET 

165 FORT=lTO300: HEXTT 

166 LIHE<20.O>-<35,2O>.PRESET:LI 
HB-(25,40),PRESET:LIHE-(10,50>,P 
RESET: LI HE- <5, 60) , PRESET: LIHE <25 
,40)-(35,65>, PRESET: LIBB-(25, 80) 
.PRESET: LI KB- (4 0,99), PRESET; FOFT 

=1T0300; HEXTT 

170 COLOR1:FORE=1T04:CIRCLE(115, 

43).E:CISCLE(145,43).B:HEXTE:C0L 

OR2:FORE=1T04:CIRCLB(115,43),E:C 

1RCLE(145,43).E:HBX:TE 

200 GOT0149 

o 
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by Tom Lehane 

THE NATIONAL health and 
medical research council 
of Australia published a 
slipie chart to Indicate if you 
are over or under weight. They 
found many people think th-y ar« 
overweight when In fact they are 
In a healthy weight range. 

The formula used Is, take your 
weight and divide by your height 
squared. 

Compare the answer to the Body 
Mess Index chart. If the answer 
Is between 20 and 25 you have a 
healthy weight range. 

Programming the computer to 
calculate your Body Mass Index 
using this f 01 nula was not 
difficult. The computer performs 
the task to calculate your 
B.M.I, by asking fcr your height 
and weight then giving you the 



16K ECB 

answer to what may be far iron 
the image you have of yourself. 

l\he most difficult part of the 
prograii was what advice to give. 

I researched many diets but 
found them either to complexed 
or fad diets. 

The best plan is tc consult 
your doctor If the 'DR MICRO' 
progran indicates you have a 
weight probleo. The program does 
give advice like all good 
doctors. 

The suggestions given are 
th'jse used by dietitians. The 
program would be useful at fund 
tailing activities such as a 
school fate. 

Using a set of lath room 
scales and a quick nean6 of 
measuring a persons height, the 
Colour Computer will handle the 
rest. 



The Listing; 




GOTOI0 

1 '********* Dfi MICRO m******* 
***** TOM LEHAME ************ 

3 SAVE" 103:3": END' 2 
10 CLS 

20 PRIKTTAB<9)CHR*(133>" DR MICR 

"CHR$U36> 

30 PRIHTTAB(9)STR1NG»<12,131) 

40 PR1NT"ARE YOU OVER VBIQHT? SO 

ME PEOPLE"; 

50 PRINFTHINK THEY ARE VHEff IN 

FACT THEY"; 



Educational 

SO PRINT'HAVE A HEALTHY BODY VEi 

GHT." 

70 PRIRT"DR MICRO VILL CHECK "YOU 

OUT BY" 
80 PRINI"USIHG A WEIGHT CHART AD 
OPTED BY" 
90 PRlKT'iHB NATIONAL HEALTH AND 

MEDICAL" 
100 PRINT"RESEARCH COUNCIL FOR P 
EOPLE" 

UO PRINT"QVER 18 YEARS OLD." 
120 FRINT'THE METHOD IS K*QVR AS 

B. M.I." 
130 PRIST" <BODY MASS INDEX)." 
HO PRINT TAB(3)STRING4(26,13l) 
150 PRINT" PROGRAMMED BY TON LEHA 
RE (1987)" 

160 PRINT TAB(3)STRINGS(26,131> 
170 COSUB200 
180 GOTO 230 

190 REM boil— (BODY MASS IBDEX) 
200 PRINT"press"CHRK128)"enter" 
CURS (128 >"to"CSIR*( 128) "continue" 

210 LMfUI'ZZS 

220 RETURN 

230 CLS 

240- FRIRT 

250 PRINTSTRIHC$U60,204) 

260 PRINTS73,"*D0CT0R NICP0*" ; 

270 PRINTS105,STRINGS<14, 143) j 

280 FRINTGUO/'FOR"; 

290 PRINT* 137,"* YOUR— HEALTH*"; 

300 » 

310 PRINTe224, , 'VHAT MEASURB DO Y 

OU WANT TO USB" 

320 PRINT 

330 PRINT TAB(10)"<1> METRIC" 

340 PRINT TABC10)"<2> INCHES" 

350 PR1NT:PRINTTAB(8)"ENTE* YOUR 

CHOICE" 
360 I»=INKEY»: IF IS-""THEH360 
370 IF IS="1" THEN 400 

380 IF 1S="Z" THEN 1000 

390 GOTO 230 

400 CLS: PRINT TABU2) M netrtc" 

410 PFIHTSTRING*<32,204> 

420 00SUB 1210 

430 PUNT TAB(20>"CENTIMET3ES" 

440 PRrNT TAB(4): IHPUT"VHAT HEIG 

HT ARE YOU"; A 

450 PRINT TAB(4)STRING*(18.131> 

460 GOSUB 1160 

470 PRINT:PRINT TAB<4> j INPUT" WHA 

T IS YOUR VEIGHT";D 

480 PRINT TAB(4)STRINGS(19 t 131) 

490 GOSUB 1190 

500 CLS: PRINT TAB(6)* , ONB MOMENT 

FLEASE" 

510 PRtMTTAB(6)STRINGS(17,l31) 
520 PR[NT©100,"THE DOCTOR IS MAK 
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IHO": PRINT TAB<5>" HIS CALCULATI 
OSS" 

530 FOR X=L TO 40 
540 FR1NTG196,CHR$<RNDU28:' + 127> 
+CHRS<RBDU28> + 127HCHR*<RPDU28 
>+127>; 

550 PRlNT9228.CHK*<RNDU28m27) 
+CHR$<RNDU28)+127>+CHR*(RflD(128 
>4127); 
560- NEXT X 

570 PRLNT<3192 ( STR1NGSC32,131> 
580 PFiNryous body mass index I 

S. ."E 

590 IF E<20 THEN 680 

600 IF B>25 THEN 740 

610 GOSUB 1200 

620 PRINT TABC^VHEALTHY" 

630 PRINT TAB(12)ETRIBGJ(7.252) 

640 PRIHTSTRINGS<32,131) 

650 PftlNTTAB<10>"FOR A REPORT" 

660 GOSUB 200 

670 G0TO900 

680 IF EU8 THEN 870 

690 GOSUB 1260 

700 PRINT TABWUNDERVEICHl" 

710 PRIST TAB<9)STRINGSU1,252) 

720 PR I NT" YOU HEED TO EAT NOPE N 

UTRIT10US FOOD" 

730 GOSUB 200:CLS;GOTO94O 

740 IF E>30 THEN 610 

750 GOSUB 1260 

760 prist tab(9)"0ver weight" 
770 frint tab<9)strihgsu1.252) 
780 print;frint"for your diet fl 
an" 

790 GOSUB 200 

800 GOTO 1280' diet plan 

810 PRINT" PAH SORRY TO SAY YOU 

ARE" 

820 PRIST TABC7VGROSSLY DVER VE 

IGHT" 

630 PRIST TAB<7>STRIHG$U9 I 252> 

840 PRINTSTRINGS<32, 131) 

850 GOSUB 200; GOTO 1980 

860 ' 

B70 PR1NT"Y0U ARE EXTREMELY UNDE 

R WEIGHT 

880 GOTO 710 

890 GOTO 940 

900 CLS 

910 PRINT TAB(6)"DR MICRO'S REPO 

RT" 

920 PRINT TAB(6)STR1NGS<17,131> 

930 PRINT" YOU HAVE A HEALTHY BOD 

Y WEIGHT" 

940 PRINT:PRINT"TRY TO KEEP IK T 

HE 

950 FRINT"RANOE OF 20 TO 25" 

960 PR I NT' OF THE B.K. IHDEX CHAR 

T" 

970 FRINT"YOUR PRESENT B3DY INDE 

X IS. ."H 

980 PRIHTSTRINGt(32 l 13n 

990 GOSUB 200:GOT0230 

1000 CLS 

1010 PRINT TAB<8)"EHGLISH HEASUR 

B" 

1020 PRINT TAB(8)STRIBG*<15,147) 

1030 GOSUB 1210 

1040 PRINT"TW0 INPUTS REQUIRED" 

1050 IRPUr'VRAT IS YOUR HEIGHT < 

FEET)"iF 

1060 INPUT" AND HOW MAN* INCHES" 

;H 

1070 G=F*12 



1080 K=G*H 

1090 A=K*2. 54: GOSUB 1160 

1100 PRIBTSTRINGS(32 1 131) 

1110 PRIHT'USE ONLY WHOLE LBS." 

1120 INP'JT'YOUR WEIGHT IN POUNDS 

";J 

1130 D=1NTCJ*.453G) 

1140 GOSUB 1190 

1150 GOTO 500 

1160 B=A/100 

1170 C=B*B 

1180 RETURN 

1190 E=11IT(D/C> 

1200 RETURN 

1210 PRINT"! WILL NEED SONE INFO 

RKAT10N" 

1220 PR INT" FOR KG TO KAKE THE RE 

<?U I RED" 

1230 PRINT"BODY MASS CALCULATION 

5" 

1240 PR1NTSTRING*<32,131); 

1250 RETURN 

1260 PR!NT"THE DOCTOR FINDS YOU 

ARE " 

1270 RETURN 

1280 CLS 

1290 Q=Q+1 

1300 READ WS 

1310 IF WJ="*** rt THEN GOSUB 200: 

CLS:GOT01290 

1320 IF WS="BND M THEN GOSUB 200: 

Q=0: RESTORE: GOTO 230 

1330 FOR X=l TO LEN(WS) 

1340 Di=HIDS(WS,X,l> 

1350 IF DS-"-" THEN PRINTCHR4 02 

);:GOT0 1380 

1360 PR1HTDS; 

1370 IF DS=". H THEN PRINT 

1^60 NEXT X 

1390 GOTO 1290 

1400 REM START 

1410 DATA NAHY COMMON CAUSES OF 

WEIGHT 

1420 DATA PROBLEMS IS A HIGH FAT 
DIET. 

1430 DATA TOO MUCH FAT IN OUR PI' 
ET ALSO— 

1440 DATA RELATES TO HEART D1SEA 
SE. 

1450 DATA «= HAJOR SOURCES OF F 
AT ARE =« 

1460 DATA KEATS CONTRIBUTE 37% 
F THE.FAT- 

1470 DATA IN THE DIET. 
1480 DATA MARGARINES*01LS AND CO 
OKING FATS 

1490 DATA KAKE UP 33% OF FAT WE 
EAT. 

1500 DATA *** 

1510 DATA MILK*CHEBSE*ICB CREAM 
AND YOGURT 

1520 DATA TOGETHER PROV1ED U% 
F FAT. 

1530 DATA BUTTER CONTRIBUTES ft*', 
1540 DATA CHICKEN*NUTS*ORAINS*BR 
EADS*FISH- 

1550 DATA VEGETABLES AND FRUITS 
CONTRIBUTE 

1560 DATA THE REMAINING lOt. 
1570 DATA *** 

1580 DATA CUTTING DOWN OH FATS W 
ILL HELP— 

1590 DATA YOU IN WEIGHT CONTROL. 
1600 DATA THE FOLLOWING IS A SUG 
GEST10N OR 



1610 DATA CUTTING DOWN ON FATS. 
1620 DATA *** 

1630 DATA CHOOSE MORE SEAFOODS. 
1640 DATA AVERAGE FILLET OF FISH 
HAS 1 TO- 
1650 DATA 5 GRANS OF FAT. 
1660 DATA * USE LOW FAT MEATS SU 
CH AS VEAL 
1670 DATA CHICKEN* TURKEY FILLET 

S. 

1680 DATA IF USING KEATS LOOK FO 

R LEAN 

1690 DATA CUTS AND KEEP TO SMALL 

PORTIONS. 
1700 DATA * EAT MORE WEGETABLES 

AS THEV 

1710 DATA HAVS PRACTICALLY SO FA 

T. 

1720 DATA * SERVE FRESH FRUITS F 

OR DESSERT 

1730 DATA ** DON'T USE TIN FRUIT 

S AS THEY- 

1740 DATA CONTAIN ADDED SUGARS. 

1750 DATA *** 

1760 DATA THE TEN COMMANDMENTS. 

1770 DATA ====================■ 

1760 DATA EAT THREE MEALS A DAY. 
1790 DATA START EVERY DAY WITH A 

FROTE1N -BREAKFAST 
1600 DATA -IICLUDE 90 GRAMMES OF 

PROTEIN IN 

1810 DATA -YOUR DIET EACH DAY. 
1820 DATA INCLUDE 30 GRAMMES OF 
FIBRE EACH 

1830 DATA DAY. 

1840 DATA DO HOT EAT CONCENTRATE 

D SUGARS 

1850 DATA —SUCH AS TREACLE WHIT 

E OR BROWN 

I860 DATA —SUGAR KOLASDES OR J A 

M. 

1870 DATA . ,*** 

1880 DATA DO NOT EAT BREAKFAST C 

EREALS. 

1890 DATA ANY BREAD PASTA - OR R 

ICE SHOULD 

1900 DATA BE WHOLE GRAIN. 

1910 DATA DO NOT DRINK ANY ALCOH 

OL. 

1920 DATA CUT OUT CAFFEINE (SUCH 

AS COFFEE 
1930 DATA COCOA- *TEA-*COLA). 
1940 DATA DON'T BE OBSESSIVE ABO 
UT YOUR 

1950 DATA —FOOD AND ENJOY POLL 
OWING THE 

1960 DATA EATING PLAN. 

1970 DATA END 

1980 CLS;PRlRTTAB(9r'DR'S REPORT 

1990 PRINTTAB<6>STR1RG*(17, 131) 
2000 PRINTS, "WITH THE CALCULAT 
IONS I HAVE": PRINT" HADE, YOUR BOD 
V MASS INDEX IS"Ej 
2010 PRINT'THIS IS WELL ABOVE IE 
E RANGE": PR INT" OF 20 TO 25 FOR A 

HEALTHY BCDY" 
2020 PRINr'VEIfiHT." : PRINT" I SUGG 
EST YOU SEEK OTHER MEDICAL ADVIC 
E," 

2030 PRINT5TRINGSC32.140) 
2040 PRINT'-FOR SOME DIET SUGGEST 
IONS JUST-" 
2050 GOSUB 200: GOTO 1280 

O 
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FIQEWOWS 



by Chris Deacon 

Jm MODIFIED VERSION of the 

IM program by Bob and Tina 

JL Mr Delbourgo. FIREVORKS will 
give 15 pages which will 
reside below Gary Furr's 
Extended Basic VI, 0. Chris has 
also modified Grahame Pollock's 
page flipping program to flip 15 
pages. Once the pages are 
loaded, ubs <A - S> keys to 
control the display 6peed. Every 
tine you RUB the program you 
will get a different firework 
display. 

The Listing FIREWORK: 

* fcEH nEt'HOftfcS BY TJMO %- BOB 

M I ttOUR&U 
Hi'l-)MM> m CiHRlSS MfiCON 

10 Clt X»-?f.1.'0'CLf.fiPiCiO / x X«?6l? 
IMFOKI :t9ir.)?6 

-•'0 P0K.E1691El.3NKX *5e..'PLi|cll^'l 

'*■''■■ iiikk/ ;•"..«■, >M::-r.f. 

.:& r ClRZ--XlCiX+3SiRFfrDfi'l>DKEZ-ft'NE 
XT2 

•*« ivm usee . *4 . , £0 • ;-** .10 3, r.fi , 1 6 

£«*e,8,l4B„ 133,56,38,? 

£.0 Ufnfl£'B6,i05,5fc,;>5$, W.G3.S?. 

•:.(t &flTfi5£,i6?«B,&.£&a40f*s,&>38 

- Z?.b . 57 

.0 CL$fl = Pf?WT N F'I.F«SE llfin "OR F LI 

-I.":. TO r:f I II " 

■ : o iin;y :-:,i i >.y- ?.. u i 

'0 F ORK- I TO?: p« K >»RNIW 8 > > CCC K >» 
W4D< e .' CR' K -RUN i\ 1 1 CIX K 3=8HDW *s ^ 

•fc<IO»-PNI>< 3 -.*■;■ ;;-t.|,-7i., :a -| . + fc 

l«K2i >V<k, I )'3\ 

! 00 5«r. £>=JJ'4RHt>« $$>i Y<K,2>= li + 

I-Hi'c. :;-:> 

» 1$ fORL-3Ti:M 1 1 = RII[>< 6?eV!0f H< IC 
. L >=1NT< X^ K, 2 >*■) , 2*R< 1^ '1 CO$< T > > ■ 
W K , l_ 'm 1 HT-- YV K, 2 )+R< K )*SIH< T ) > ■- H 

r MTl. ,\ 

130 CL1:ft-rdH - I !0$ K*X<K«1) Y=Y«: 

i . 1 > «x:> < xi *:• i , ? •>-'£* vybCY'Vck ,2 

• » ■? T-li_. ■ it 1 Gt!CUB34B'HEXTKiB=l« 
'-USUfc:'..^ 

138 cisn roF-nnii;; Sk{X<k-1)*x<K 

.-•'.•-:■ >■-■• V I -I MVCK,2>Vg xx«<x 
■ I ■ J ;•+?:* S< K - g • v - 1 - YY" < Y< K j 1 >t 3*Y 
' Y- ■>:>>■•} <C=CC- I. J GQSUB340 NEXlK 
1 40 S*? GGSUI<V00 

1 so clso ' fqi*k - 1 n a < >:» < at x* 1 >4 j*x 

- K,2 >>M <Yt-< Y<K, I >t;-:|.Y'. K,2)V4'X 

X*<XCK*J >*e*x<K,?> v?j YY=< W < k. 1 > 

<Sf#Y{K,2 > >*"5>*l'*"fct.i K > G0SUB340 
J CO HEMlK^^3'GC^Ubr.Oe 
1 ?0 CCS0 1 FO(- , t;^lT03 = X=X<K/2)^Y-Y«; 
I- - 2 > * OCR< K *> * G&&UM30 - HfXTK S = 4 > 

c.osuBsoa 

iee FOF!K-iT(c-::ri.f-i-Mi:.n 'X=x<fc,2 

«-Y-V<K. 2> XX-<X'»XtK,L»/2 YY-«:Y 

+Y<K^L))/2H:«-CR(K)"G0SUB34e'MEXT 

I ,K '«-=$• G0SUE5O0 

l^'O DLSa^FOEK-nO3 = rORta3T0ll 'Ka 

' ;-:tXCK.. 3 >+X< K.L > )^4>Y"< 3*Y<K-2>+ 
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"r ■ IC, L) }/ 4 • KK=< ::< K r ? >+3tX< K , L > V4 
VY»CY<K,2H3*YCK#L>>/4rC=CR<K> 

;-i»e G0SUB34P 1 IJF XTl. ,rs=£: G0SUB5& 

i'l Cl.Sii 1 FOR^s HO?:: KORL = 3T0l 1 'XX 

: ::-i:,l> YY-Y<K»l » X^KX+KCK^2»^ 

:- Y-o , V«YCK^'>>/2C«CR<K.'-'C0SIJB3 

•1 ' NEXTL #K 1 S- 7 COSUBS00 

;- ■;■■& CLS9 ' F0RK M 1T03 « F CRI-3T01 1 ' M" 

X<K*L>iY-Y<K;l >'XX**3*X+X<K,2)>/ 

4 YY-< 31 Y+YC K , 2 ; >^4 - C = CP* K ^GO$U 

b34B>GOgUB430'NCXTL>K i S"8 

?:30 GC)SUtt50(l 

?40 CLSe -FQRK« ITC13. FORL«3T0J 1 X= 

X< K , L V y = Y( K , l > = C-C(>< k > « GCISUB420 

'HEXTL/K $»9"GU$UB5ee 

?50 CLsaiFORK^i"r03'FORL"3T01i • X= 

K' K.L)' V=Y/ K. L *» " XX=X - YY»=Y+2 ■ C-r.;[> 

• f > 'G0SHP3S0 miiM . K'S»10'COSUB5 

Be 

?60 CLSW - * 0RK= 1 703 ■ F0RL^3T OH »X- 
X< Ki L >' Y* V K , L 14 1 s KX»X ' VY=V< 2 ' C= 
CIXK ?'aaSUB390tHEXTL,K ^S=l l^GOSU 
B5W 

^78 CLSP FORK!»IT05-FORL*3T011-X« 

XC K-U ? ' Y=-Y< K*LH4 ' XX*X. = YY-Y+2 ■ C= 
Ct)( K J G.0SUB»9e MEXTL.K -S=l 2' GOSU 
E:T.0O 

^6 CtLS0'FOfcK«lT03-FORL.=3T0n « X= 
X<K*L>' V *=Y< K.l )+5*XX«X'YY=Y+l «C= 
CD<K> <G0SUIi»?A HEMTL . K ' S= 1 ji' GOSU 

Bsee 



MC-10 



.-'0 CL?.C ■ F0PK=1T03 'F0PL-3T011 X= 

X< k , L > . Y-Y< K . L >* S C *=CX< K ) • G0SUB4 

30 i NEXTL,* ^S«M » GOSUBSfie 

300 C:t 90 FOKK- 1T03- FOPL =3TOi 1 . X= 

XC K > L .» ■ Y*Y< K . L >*5 i C-CXC K > GOSUB4 

S® i HE XTU-. K ^ 1 5 G0SUB59B 

318 GOTO COO 

340 IFXX-IX THKH3I70 

M% JF X-XM THfeH 330 

350 FORI«XlOKX'Ja<YY-Y>#< I-X>/<X 

K*X?iSET( I,J+Y,C)-NEX7I 

360 RETURN 

376 for i^::::tox- j*cy-yy>*< i-xx>^< 

K-XX>.S£n J.J*YY.C:>:HEXTI 

3ffe Rt:iupn 

390 IF Y>YY THFM4IB 

•leo FOttI=YTOYY'SET<KiI»C)tHEXTl: 
RETURN 

4 1 FGRJ-YY1 0Y= SEKX* I , V)> NEXT 1 ■ 

KE. TURN 

420 SE7i-K-|.Y-i.c> SET<X4l,Ytl,C 
>■ SETCX-J .Y+l ,CO SET<X+1,Y-1,C ) 

43fl SET<K-1*Y>.0><SFT<X1 l.Y.O^SE 

Hi:,Y-i,C >:tEUX,Y+l,c> ^ RETURN 
50« FCiRM-tiTOr.il "POXE2S914+H+$«51 
2T*PEEK< US84+H)»MFX1 RETURN 
688 [>l =3d 

618 HT=[HKFYJ::f'r.l.l?;R<0> 

62© DL=|>L+J 0*r< ( H*- "fl »flHt>l»L >10>-< 

">36 FC"Rl»ITCim MEXTI =0070619 
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by Johanna Vagg 



MY KIDS HELPED me to 
progron KIDSTUFF in the 
early nonths of 1984. 
Ve were very pleased whan Greg 
told us that he thought It was 
wonderful and that he would 
Include It In CoCoOz. Later In 
the year, Grahan too said that 
he liked it, and that It was his 
daughter's favourite. 

When we heard recently that It 
was to be Included in the CoCa 3 
tape, we were pleased ail over 
again. . until we saw it! 

It will be clear to anyone who 
has seen the original, that the 
person \-0 who converted It did 
not have '•he sane feeling for 
the program which we. hod. I am 
a little (1 > concerned that some 
of the people who have bought 
the CoCo 3 tape, have no^ seen 
the original . . . and our names 
program which Is 



no iraprovanrant on the 



are 
tbe 



are on a 
certainly 
or lginal! 

The colours for Humpiy 
wrong; he does not fall off 
wall; the twinkling stars 

twinkle down In their boots (but 
then, maybe that's what yellow 
plus signs do on a green 
background!); the mica are 

purple (yuk) blobs whose tails 
are disconnected even before the 
farmer's wife gets to them; and 
there's a TDD ERROR when the 
whole thing tries to re-RUH. 

As the CoCo 3 is such a good 
computer we should make use of 
the new capabilities if we are 
to convert programs for It. 

KIDSTOFF could probably be 
Improved, but all I've done Is 
to restore it. In 1984, Hon lea. 
then aged 0, suggested using the 

high speed poke to help the 

stars to twinkle. Ve lowered 
the music (twinkle twinkle only) 
an octave to compensate. 

As this high speed poke does 
not work on the CoCo 3, the 
music Is too low. 

However, we have a new high 
speed poke which could be 
throughout the program, 
other music could tken 
lowered an octave, depending on 
your taste. This high speed 
poke will hasten the drawing 
along, and the mice too! 

Delete 740 and the POKE part 



used 
The 

Be 



of die- 
Then add: 

25 ON BRK GOTO 20O0 
27 POKE65497.0 
2000 POKE6549O,0;PAL5TTERGB 
I BSD 

The THREE Is also able to nake 
things 'appear to disappear' 
more easily than the ORE and 
TVO. So why doesn't Hurapty fall 
off the wall? Ve don't need to 
redraw him In the background 
colour, so we can delete lines 

590 to 630. 

To make the colours more 
acceptable, I've changed line 



330 HCLS4 

... and taken out line 340. 
Line 380 should have ... 

C2S8 

... inserted into it, and lines 
390 and 400 should have the 
endings changed to . . . 

,4.2. 
Then Insert: 
405 HCOLOR3 

... and change 480 to HCOL0R4. 

The color in 560 should be 4 
and In 570, 2. 

To make Humpty disappear, 
insert: 

595 PALETTE2.63 

I suggest surrounding the fall 
(line 640) with: 

605 POKE65496,0 
645 FOKE65497.0 

To get the black sky for the 
stars, you could HCLS8. Then 
you would still gat plus signs.. 

so try thlsi 

680 PALETTE0, 

Use HSCREHH2 for the 

'writing', but for the stars, 
change to HSCRBEB4, lea 

920 HSCREEH4:HCLS0 



You can have more stars (line 
930), and to spread then a 
little, increase the value In 
940. The radius should be 
increased to 3 (line 960). 

Now for the mice. Change 1000 
thus: 

1000 HSCPEEfT2:HCLSl:HC0L0R7 

:FALETTE7,49 
1025 HCIRCLE(56 f 150), 10,7,. 7 
1030 HP*1HTC56,150),7,7 
1050 HLiHE<56,150)-(32, 150) 

,PSET 
1055 HLrNE(56,151)-(32,151) 

,PSET 
1235 HCIRCLEC51, 120), 10,7,-7 
1240 HPAIHTC51, 120), 7, 7 
DEL 107O 

DELETE the colour from line 
1065 CC8) 

Change 1100, 1130, 1160, 1190 
and 1230 to HCLS1 . 

The nice can run further if 
you change lines 1120, 1150 and 
1180. 

The values In the HFUT in 1270 
and 1275 can be adjusted for the 
extra 64 Pixels we have across 
the screen. 

To prevent the ?DD ERROR, 
change line 1325. . 

1325 FORT=LTQ2000;FEXT 

: PALBT THROB: GOTO330 

This way you won't have to 
view the title screen again... 
by the way, It can be easily 
centered by editing lines 311 to 
318. 

Before 1 leave, 3KAKGA will 
get bis tall if you change the 
DRAV in line 45 to HORAV. Then 
you'll have to HPAIHT It. I 
dislike the background color. 

I'm sure you can do better. I 
prefer to make the screen the 

colour I want for the kangaroo. 

Then 1 HPAIKT the background. 
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II THIS ARTICLE I would Like 
to answer eons of tbe 
specific questions which w»re 
asked of me at COCOCQNF. One of 
these was "Vhat problems did you 
have when you started?" 

"Problems? I've had a few.." 
says Frank Sinatra., and then he 
adds something about doing it 
his way.. Hy Mln probieil 

initially was not having a TT 
other than the one which ay 
family alwayo eeened to be 
watching. This problem lasted 
17 months. 

When I was eventually 

presented with their old TV 
(they watch the new one), I hod 
a two nonth old baby, bo tbe 
problem then was one of tine, 
'Doing It »y way- was a problem 
** Gorts. | Ha6 on By 0Hn 
There was no-one to help me. On 
the odd occasion whan cy 
programmer brother visited from 
Sydney, I was told that 'ay way" 
vasn't the right way. I think 
the 'right way' involved knowing 
about BIHARY and HBXIDECIHAL 

numbers. 

I felt that what I was doing 
was right for HE. I was having 
fun. If I wasn't enjoying It, 
ray CoCo would have been banished 
to the wardrobe. ' My way' was 
playing with PRIST, SOUND, PLAT 
and BRAV. 

The next question is closely 
related! "How do you find the 
time?" The short answer la: 
"Wit* difficulty." Katy is 22 
months old now and into 

everything. 

H is virtually lapossible to 
'work with' the computer while 
she Is awake. The other four 
also object. Unless they're 
asleep, tbey misbehave when I 
sit down with the canputer. 

I find tino by cutting down on 
non-essentials like sleeping, 
eating, washing etc. Seriously, 
if you are the type who can't 
sleep unless the tea towels are 

Ironed, forget conputingl You 

don't have the time. It's all a 
nottar of priorities. 

I use CoCo a6 a form of 
escapism* I fill my aind with 

•■computer thoughts' to 



partially block out worries. By 
worries I mean the things which 
no amount of wonylug will 
change. It would not be right 
to bide from reality. 

Another question involved tbe 
use(?> of flow charts. I wonder 
If you've noticed that I don't 
end sentences with 

prepositions? Vhat does that 
have to do with flow charts?? 

It's difficult to write good 
English. It's more difficult 

to speak that way. I often end 
sentences with prepositions when 
I'l speaking <and I would say 
'talking', not 'speaking' >. 

Vhen I want to be emphatic, 1 
will even revert to good old 
Aussie slang. . 

"Flow charts? I never writ 
one of then things In me llftl" 
That was my answer to that onet 

The problea of language brings 
me to the next problem of 
computing. How did 1 learn 
BASIC, and how could I 

understand the manual? Again,, 
the short answer is, with 
difficulty. Do you know that 
the bus driver was not amused 
"hen I answered *By bus to hi« 
question, "How are we going?"?! 

The manual is not always 
clear. 

** le sometimes wrong. 

<Octaves begin with the aote C, 
not A.) Have you ever tried to 
write instructions? It is not 
easy to clearly explain 

anything. Xy washing machine is 
temperamental. I had t j eave 
Instructions before I went to 
COCDCQHP. 

' Composing' these was a big 
Job. I will try, in a series of 

articles. to teach beginner* 

some basic BASIC. 

Graham already has some of my 
articles which I wrote last 
year, but which were misplaced. 
One of these deals with another 
question 1 was asked. it tells 
of the method I have adopted to 
enter machine code and then 
' look at* that code. 

There are programs which will 
help you to do these things. 
One which t like is DEBUG from 
MARCH 1986 RAIRBOV. 

Here are some of the 

miscellaneous items we touched 



by Johanha Vagg 



on, OnB was the Clayton's Cold 
Start. I have found that typing 
FUKET13, and pressing RESBT <or 
adding EXEC40999) is not really 
the sans as turning the computer 
off' and on again- 

I realised this early in 1964 
because doing thi6 and a 
P0KE25,5;HEV did not clear the 
memory for the C0COC0KP0SEH. 
Vhen this program Is CLOADed 
without turning the ctnpufcen? off 
first, there is 'rubbish' in the 
music eection. It's rubbish to 
soma, but fun to the kids! 

More recently I discovered 
that if you have a picture on 
the HI-BES screen and you do a 
Clayton's .Cold Start, you can 
etill look at your picture (or 
duap it to the printer). If 
your picture started on the 
first 'page' of the PMGD84 
screen, then type: 

10 PKODE4:SCRBEIl,l:G0T010 

Vhat do you think of the cold 
start now? If you have a file 
from the COC0C0HPOSER and BXEC 
ft, then do a cold start and 
type BXEC, it will cone up ?FC 
ERROF. However, try EXEC11264 
and vol let 

Talking of EXEC... EXEC44539 
16 a handy one. It's like 

IHKEY4, You can use it whan you 
want a program to 'Just sit 
there' until you preses a key. 

Then there are the Speed 
POKEs. The Hl-Speed POKE: 

POKE65495.0 with 

POKE65494.0 to return to nornal 
Tbe extra Speed POKEr 

POKE65497.0 with POKE65495.0 
to return. 

There are a number of POKEe to 
359. You can see some of these 
la my POKE collection in 
SEPTEMBER 19B5 COCO. Try 

P0KE359.128. 

A point I would like to nake 
is that although I do r ems labor 
(after 3 years I ) certain things 
about BASIC, I have a list on 
the wall near the computer. 
This is a list of various things 
which I usually forgot. I think 
that tonight I forgot 

something,. I forgot to go to 
bed. It is 1.45 ami 



o 
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16K ECB 
MUSIC 



by Mai McLaughlan 



IF I VERE A RICHMAN Is a 
musical piece 1 created to 
give people some Ideas thait I 
applied In ray music tutorial. 
Enjoy It! 



The Listing: 



1 * MM*tf*nRiCHKAtiM.vtt*«mft 
USHT TO COCO BY HAL HCLAUCHLAHt 
t***M*m«JAJ. 1987*********** 

2 GOTO 10 

3 SAVE"lf>8C:3":EHD'7 

4 'MUSIC FOR ALL ECB COCO'S, FROM 
MUSICAL "IF I VERE A RICH MAS". 

5 ' ***ARRANGED BY MAL KCLAUCHLAH 
11HUHTER ST.,B00NAH, Q.4310***** 
10 CLS 

20 FOR S=0 TO 510 S1EF2 

30 PRiBr$S 1 CHR$<36>;CHR*C255>; 

PEXT S 

PRi KTS482 , CHRS <36> ; CHRJ (255 > ; 
CHRS(36);CHRt<255);"if 1 were a 
r tch IftH" ; CHRS (363 ; CHRS (255) [ CHR 
S<36>;CHRS<255>; 

60 FLAY"T4-03LeGFGFL4EC02V>C03V<L 
8EFGFGFEFGAB-AB-AL4GL6GGL4GL8GG" 
70 PLAY"r403L4A-LeG0L4G-L8FFE-DC 
DL4E-LeE-E- n 
80 FLAY"T4G3L8E-DCDL4E-L8CCL4GP4 



40 
50 



04V>«V<F4" 

90 FLAY"T4T4O3L8GFGFL4ECO2V>C03V 

<L9EFGFGFEF0AB-AB-AL4GL8OOL4GLeG 

G" 

100 PLAY"T403L4A-L8GGL4G-L8FFE-D 

CDL4E-L8E-E-" 

HO PLAY M T403L8E-DCE-D';02B03'D:2C 

P32L4EFG/-A-A-A-A-L8B-04C03B-A-" 

120 PLAY"T403UGL8GGGGGGL2.GLHJF 

FFFFL8GA-L4 . GL8FL4EL8CGEDGE04L4C 
■t 

130 PLAY"T403L4EFGA-A-A-A-L4A-L8 

B-04CO3L4B-A-GL8GGGGGGL2.G" 

14 PLAY"T403L4GFFFFB-DCE-GL8BA# 

P.L-W4CL8C*L4D" 

150 PLAY"T40414EFGAAAAAL8B05CD4L 

4BAGL8GG0GGGL2GP4" 

K>0 PLAY*T404L4FFFFFL8GAL4GFL1EL 

8EEEEEEL4E03EFGA-A-A-A-A-L8B-04C 

03L4B-A-CL5GGGGGGL2.G" 

170 FLAY"T403L4GFFFE-DCE-GLQBA#B 

04L4CL8C*O4L4DP4O3L4EFGAAAAAL8BO 

4C03L4 BL1BAL4 GL8GGGGGGL4GGG" 

iftO FLAY"T403L4GFFFFFL8FAL4GFEL8 

CD-A-GED-L4CEFGA-A-A-A-A-L8B-04C 

03L4B-A-GL8GOGGGGL4GGGG" 

190 PLAY"T403L4FFFFE-DL4 . CL8E-L1 

GF4L8GFGFL4Ed" 

200 PLAY-T403L8EFGFGFEFGAB-AE-AL 

4GL8GGL4G16GGA-L8GGL4G-L8FFE-DCD 

L4E-L8E-E-E-DCDL4E-L8CC" 

210 PLAY"T403L4DP403L8GFGFL4ECV> 

02CV.'n3L8EFGFGFEFGAB-AB-AL4GL8GQ 



L4CLi5C:.L4A-GG-FL8E-IX;DL2E-" 

220 FLAY"T404L4A-GG-FL8GFE-FL2GL 

4A-GG-r ; L8GFE-GL2B-L8E-DCE-L4GELa 

GFGFL4EC02V>C04V<:L8EFGFGFEFGAB-A 

B-AL4B-B-005V>L1C" 

230 GOTO 230 



O 



Hint ... 



This progran will give you a 
snail attr deao that changes 

when >-"u press a key. lit also 
telle you Ua attr setting. 

1 '*** ATT* DEW) *** 

5 CLS 

10 FOR I»0TO7 

20 FOR S=0 TO 7 

30 ATTRX.S 

35 P»I*T"ATTH "iZi".";S 
40 EXEC44539 
50 IEIT S 

60 KEXl X 
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Chinese 



20K 
MC-10 



C6GCK€RS 



All 



thi 



for 
the 



*^1 g a °s far four plnyera. 

/I the Instruction* 
g\ are included In 
a " listing. This one will 

keep you out of Mischief 
hours. By cutting down on 
RBMs and paring off the 
instructions to try to eliminate 
about 650 characters it should 
be possible to fit this into 4K, 

The Listing CHIHESH: 

REM CHINFSl r:||[.i;:|:|vc; f:y 

EHRJ0 PEfttnH 

1 Rl M . _ t 

'J GOSUB 909-REH FUR 4K DEtETG TH 
rs LIME RHE> L1WE*£>0 OtUftftOS 
IP CLS6 ! CL[:AR2O0M'1MR<:.4 >,B*< 64 > 
! P»1-60O3 ' S*7'X«1 i DM E3SUB780 
30 REM! rt*r» :****#****»**** **3*#** 
40 F0RC-1TO4«1F KC)=J THEM SO 
SO K* 143+C* i & i GOSUB06 &OSUBS00 

S:fi U-OE=0 NEXT GOT04O 

$5 REM***m**m*****mm**».# 

©6 PR I M T fifi , CHM< K > i CHR*< K > i tHR t < 

K)jGHR*CK)j 

90 fU-iNKErr 

IPO S a K+<n*-("n , '>HMDX>J >~<fl*s<"S 

" >Rtlt)X<64 )+<<<ftt"< "W" >flNr>X>2 >#V> 

-en*** "z" >antk&@3>*v> 

IS3 M»!HT<A< KV$2 >+ 1 ; V~H 

»30 1FX>36 TMENV"- V' I*='/+16>V=I 
198 P0KEP+n<D>j 128P0KLP+R< X _> . 6? 
iD=X'IF fl*=-P" HllDU-1 THEHRETURM 
£00 IF fl*<>"H" THEM 90 

300 rem************************* 

*.00 E=E+1 tKCE)=X- J<E>-=H1F E<2 T 

MEM 98 

520 E«0'SOUHD?eo» 1 <A=K<i VB=K<2> 
iM=RBS<R<fi>-0<:B>) 
525 IF WOS1 AMD M< >33 HUD HOS2 

AND MO66 THEH 56.0 
530 IFU-1 HMO H<62 THEN 566 
535 IF M<62 THEM 550 
540 T»fiBS<fl*B>/2ta«-l*CJCi»7 AM 

l> J<2>>?>'IFei.<T + G(>*" "THEN 56© 

545 GOSUB530'U«i*E-J 'Ktl>sKC2)<J 

< I )= J< 2' > i GGT09O 

558 IF 6*<ft >=CMR*< K) fiHD B*<B>=" 
" THEN B*<* EO = B*£R>>B*< A>=" "PR 
IMTftfK B >/ 0448 )/ ■ PR I NTCfK ft > . B*< R > 
* tr.n=r.n*i >rfturm 
560 E*-1*CU=1 ) <G0T 090 
$S0 REM******* ****************** 
60S FOR F=l TO 20 STEP 2 



618 P0*VflU MID*<C*CC>. F,2>> 

eae ifi!hkd'.h:«kkk)i hen return 

630 Uf>!T P(C^1PL = PU1 

640 8<PL>"K'IF f'L<4 THEM RETURN 

650 Y^O' FORI *• JT04;QS«=CHR$( 0< I )> 

660 PRIH1P04 Y*32,CHR*C40+t >>O.IiO 

tiQt; «Y»Y+2=HEXT 

670 GOTO 670 

690 REM************************* 

r0O Bfn" 1 1 u i 1 11 1 120004200004229 

00442^(1000442200044200 9042000433 

710 C*< 1 i--"fi556575£:596061626364" 

720 CSC2)- ll l5?m2£399642434994' 1 

730 C*< 3 :"="01O2O304050607tf&0910" 

740 C*<4 >»' 1 1 1 62223293 0373844 50" 

750 FORI=n064 F = VfiL<MlD*<B*, 1,1 
> )R-143» 16*:F - IF r=0 THEN R-32 

7S0 B*< I >^CHP<Cf:>'HEXT'F0RI = lTO8 

(HO FOPM=STOS+B G=N*2- J=G+Lt32+I 

020 T = T* 1 -H< T >=J'PR1NT©J.E:J(T >i 

330 MEXT ^S=&-1 >L*L+1 <B=B+1 'NEXT 

G4R S"5;Bce.F0C: t = l to 7 

850 F0PM-STOS4F! G=U*2- J=G+L*32-I 

860 T«T4i ( fl( T>"J'PRINTeJ*BHKT >. 

870 HEXT 'S«&*1 l.^L+1 B=B-1 'NEXT 

eee return 

890 R£n****K**********4;j:*$*****:t 
96B C»RN'IK 8 > CLS« ' 1 MD*C 1 2 ) 

910 [>*< I J--.-1 I 11 1- ;[>«<- 2 >r" 10080" I 

D*C0>» a 16801 "*0#<4>»"l 1110" 'D*( 5 
>="11001 " 0f-< 6:"-" 10181 "*!>*< 7 >="! 
0O1 1" [».f<3 •-"OPOOl" 

5^20 i>*< ? >«"i eoi©" ; r»*< ie>=" Lojeo" 

D*< 1 1 >= "1 1080" [»*< 12 J- "OO 1O0" 
930 E*< \ 5««nBBBfi"*E*C23B' l H0OBfl ,, « 
E*<3>="CC8CC:":E*<4>=''fHL_LFl" ^ E*< 5 
^"JMKJI* -E*<6>^"CEF'GC M -El:<7>=' , H 
CRJI" E*<&>="fiDriHfl" G0T3U140 
948 FOR L"l TO LEN< HJ. > 
956 Ea^VnLfHLUtCfiJ.L.l > J 
9t0 FOR : 1-1 TO 5 
970 H=nSC<HIt>*(E*<B>jT ,\ ) »-64 
900 FOR Rn| TO 5 
998 V=VnL<MIP$<DT<M),R.l ) » 
1C108 IF V«l THEH SEt<X,r,C) 
1610 X»X+1 -NEXT 'Y=Y+1 ; X=X-5 

K'£0 HEX! 'Y-P^^X+fi'HEXr' RETURN 
1040 R*«=- 1346282" :Knl2<p«4 « Y=P>G 
0SU8940 

1050 fit'" 1321 K2?e"' X^9^P=14:Y=P = 
G0SUft948 

1060 FOR DF.= 1 TO 2900 HEXTDE 
1065 REn:lXX*.*t*#tX*ttX%t *#:****** 
1070 CLS =rRIMTP&. "CHINESE CHFCKF 
R9 N »PRIMT 

10SO RRIHT"C:HINESF CHECKERS IS fl 
GfiHE FOP FOUR PLHYFRS.THE OBJE 



by Chris Deacon 



"GRHE IS TO MOVE YOUR 
THE OPPOSITE SIDE OF 

"BEFORE YOUR OPPONENTS 
YELLOW TO REDS P0S1TI 
RED TO YELLOHS PQSXT1 

BLUF TO WHITES POSIT I 
TO BLUES POSITION" 
RtL MOVES ARE OlfiGONft 
h I RETT I ON. TME PLAYER 
SIGNIFIED BY THE COLO 
TOP LEFT HAND CORNER 
PRESS RHV KEY TO C 



CT OF THE" 
1090 PRINT 
PIECES TO 
THE BORRD" 

I 100 PRINT 
DO <<EG>> 

OH 
OH" 

I I 18 PRINT 
ON " , " I4H I T E 
! I20 PRINT 
L IN WJV 
& TURN 18 
MR IN THE 
1 136 PRINT 

OHTIHUE n J 

1140 IF IMK(Y«=-- THEN 1140 

1150 fi.< PRIWTBQ* "CHINESE CHECKE 

RS"' PRINT 

1160 PRINI-TO HOVI YOUR PIECE US 

I THE RPROUV FYS TO HOVE THE CURS 

OR TH THE" 

1170 PRINT-LEFT SIDE OF THE PIEC 

E YOU HHNT TO MOVE THEN PRESS <M 

> THEH ClOVETtfE CURSOR TO THE SOU 

RRE YOU" 

1180 PRlHT-MriMT TO MOVE TO THEN 

PRESS <M>." 

U85 PR1NT"Y0U CRN MOVE [URGONRL 

LY UP OR DC'WH OME LINE OR" 

1189 PPIHT"YOU CRN JUMP YOUR OWN 
PIECE OR YOUR OPPONENTS PIECE. 
IF vnu f:fiH" . 

1190 PR1MT"JIJMP RGRIH THEN MOVE 
THE CURSOR TO SQUARE YOU NRNT TO 

MOVE TO 1MEM PRESS <M>." 

1200 PRINT* PRESS ANY KEV TO C 
OUT 1 HUE" : 

1?10 IF IHfctVJr"" THEN 1210 
1220 CI.S -pRIHiee . "CHINESE CHECKE 
RS" FRINT 

1230 PRINT" IF YOU CflNNOT JUMP RM 
V MOPE THENTREeS <P> HMD THE GRM 

h THEH ITC.OCG TO THE NEXT PL 

AVER" 

1248 PPIKT-OHCE R PLAYER HfiS MOV 
El- ALL THERE PIECES 10 THE 

PPDS1TE SI&E OF THE BORRD THE 

SAME THEN" 
1250 FP1IIT"C0MTIMUE5. BETWEEN THE 

REMRIHlrtC PLAYERS. THE GAME END 
S WHEN Rl L THE PIECES RRE ON THE 

OPPOSITF S7DF OF THE BOARD 11 
12:60 PPIHT" PRESS ANY KEY TO S 

TF1RT " 

1270 II !HKFYJ="" THEN 1270 
1288 RETURN 



■ ■iiiiiiiiyiiiM iii 
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EQUnRi JIB 



by Bob Delbourgo 



32K ECB 



GAME 



SQUARE JIG IS A cross 
between the "Tciwei of 
Hanoi" and "Shuffle". You 
are presented with a square 
picture divided into an ' n 1 by 
'n' *rld. 

The pieces are shuffled and It 
is ycur job to re-or^anlse then 
by interchanging adjoining 
pieces of the grid. 



The Listing: 



GOT010 

1 '******** SQUAREJG *********** 

***** BOB DELBOURGO ********* 
3 SAVE , '205G:3":END' 1 
10 CLS2 

20 PR1HT510, STRINGS (12, 230) ; : FOR 
I=42T0256STEP32: PRINTG1 , CHRS (230 
>+"Bquare JW+CHRJCSSO); ;NEXTI: 
PRIBT«266, STRINGS (12, 230) j 
30 FOBI=lTO20 

40 R1=RND(10):S1=RND(7):R2=RND(1 
0>:S2=RND(7):IFR2=R1 AHDS2=S1 TH 
EN40 

50 T1 = PEEXUQ34+R1+32*S1>:T2=PEE 
K(1034+R2+32*S2):POKE1034+Rl+32* 
SI, T2:FOKE1034*R2+32*S2,Tl: SOUND 
RND(255),5:NEXT 

60 PRIBT«»424 l "BY R. DELBOURGO"; 
; GOSUB520 

70 CLS:PRIHT"THIS PUZZLE IS A CR 
OSS BETWEEN THE tower of ha not 
AID shuffle." 

80 PRI5T"Y0U ARE PRESENTED WITH 
A SQUARE PICTURE DIVIDED INTO AH 

■XN GRID'^PRINP'THB GRID PIECES 

ARE SHUFFLED ARDIT IS YOUR JOB 
TO REORGANISE THEM BY INTERCH 

ANGING adjoining PIECES OP THE G 
RID." 

85 PRISHP320, M 1. RND GRAPHICS 
2. HOUSE 3. GREEK FLAG 

4, CARPET 5. DANDELIOS 

6. DOILY 7. CAUSTICS 

8. WAVES" .-PRINT: I HPUT"CHOICS I"; 
C;C=IHT<C) : IFC<10RO8THENB5 
90 R=SND<-TIHER) 

100 CLS:PRINT"SQWARE SIZE H (4 H 
IN, 8 MAX)";: INPIFTN: N= INT(H) : IFH 
<4QRN>8THENiQ0 
110 P3INT:PRIHT"THB PICTURB VILL 

NOV BE DRAVN. TO RECALL IT DUR 
ING REORDERING, PRESS KEY 'S'" 
120 PRINT; PR I NT" TO UBSHUFFLE THE 

PICTURE, MOVE THE CURSOR VITH 
ARROW KEYS AND PRESS 'U'.'D'/L 
1 OR 'R* TO INTERCHANGE THAT 

SQUARE VITH THE ADJOINING SQ 

UARE UP, DOVN, LEFT OR RIGHT RE 
SPECTI VELY. " : PRIHTG448, " PRESS ■ E 
• TO RBRUH JIGSAW," 
130 GOSUB520 
140 PX0DE1,1:PCLS:SC=RND(2)-1:SC 



REEH1, SC: DIHA(16) , B(16> 

145 OHC GOT0150,550.650.750,a50, 

950,1000,1050 

150 F0RI=lT01NT<H/3) 

160 LIBE(FRD(12*B),RND(12*B>>-(1 

2*N4RND(12*H) , 12XB+RND<12*H) > ,PS 

FT B 

170 C1RCLE<12+RNDC22*B),12+RSD<2 

2*H)),24*RBD(ff),4 

180 NEXTI:F0RI^1TQN:PAINT(2+RHD( 

10*K) , 2+RXDU6*!) > , RND(3) +1, 4; IB 

XT I 

190 L1HE(24*N,0)- (255, 191) .PRESS 

T.BP 

200 LIBB(0.24*N)-C24*B.191),PRES 

ET f BF 

210 LlBE(0,O)-(24*N-l B 24*I-i>,PS 

ET.B 

220 PCOPY1T03:PCOPY2T04 

230" SCREEN), 0:PRINTe416, "NOV CHO 

OSE YOUR LEVEL OF PLAY (1 TO 3 

, OR HARD TO EASY)"; ; IIPUTL;L=1N 

T(L):IFL<10RL>3THEN230 

240 SCREEM1,SC:F0RI=1T02*IHT<H/L 

) 

250 Ri=24*RND(N>-24:Sl=24*RND<I> 

-24;R2=24*RNDCN)-24:S2=24*RND;N) 

-24:IFR2-R1 ABDS2=S1 TBEN250 

260 GET(RI,S1)-<R1+23,SH-23),A,G 

:GET(R2,S2)-(R2+23,S2+23>,B,G:LI 

RB CR1 , SI ) - (Rl+23, Sl+23 ) , PRESET, B 

F:LI»E<R2 I S2)-(R2-»23,S2+23) I PJ?ES 

ET,BF;PUT(Rl 1 Sl)-(Rlt23 ( Sl+23>,B 

, PSET: PUTCR2, S2>- (R2+23, S2+23) , A 

, PSET: SOURDRND (255), 1 

270 NEXTI:C0SUB530 

280 SCREEBO.O: I=IBT(N/2> : J=IHT(N 

/2>:PRIHT»480," any key to reor 

d«r jiRcaw";:PRINT«448, "PRESS 'R 

' TO RERUN THE JIGSAV " 

290 SCREEH1.SC 

300 IS=IHKEYS:GOSUB410:IFIS=""TH 

EH300ELSBIFI*="S"THEN490 

310 IFU=CHR$<9)THENt = I+l:IFI>N- 

1THEBI=N-1:SOUND100,1:GOT0300 

320 IFIS=CHRS<8)THENI = I-1:IFU0T 

HBBI=0 : SOUND100, 1 : GOT0300 

330 IFIS=CHRS<94)THEHJ=J-1: IFJ<0 

THEHJ=0;SOUND100, 1:GOT0300 

340 IFU-CHRS<10)THEHJ=J+li IFI>N 

-1THEHJ=R-1:SOUND100, 1:GOT0300 

350 IF1S="U"THENIFJ=0THEBS0UND50 

,lsGOTO30O ELSBL=-24;K=0:GOSUB46 

0:GOTO300 

360 IFIS="D"THENIFJ=B-1THENS0UND 

50,1:GOT0300 ELSEL=24; K=0:GOSUB4 

60;COTO300 

370 IFIS="R"THEHIFI=B-1THENS0UND 

50,1:GOT0300 ELSEK=24: L=0:GOSUB4 

60: GOT 03 00 

380 1FIS='*L"THENIFI=0THEBS0UBD5Q 

^iGOTOSOO ELSEK=-24:L=0:GOSUB46 

0:GOTO300 

390 IFI4="B"THENRUN70 

400 GOT0300 

410 PUT(24*I.24*J)-(24*I+23,24*J 



+23>,A,BOT 

420 F0RT=1T02:BEXTT 

430 PUT(24*I,24*J)-(24*I+23,24*J 

+23> ( A,BOT 

440 FORT=lTO10O:NBXTT 

450 RETURN 

460 GET(24*1,24*J)-(24*I+23,24*J 

+23) , A, 0: 0BTC24*HK, 24*J+L>- (24* 

I+23tK,24*J+L423),B,G 

470 FUT(24*i,24*J)-(24*H-23,24*J 

+23>,B,PSBT:PVT(24*l+K,24*J+L)-< 

24*I+23+K,24*J+L+23),A,PSBT 

480 PLAY H T25505CDBFGPEDC M : RETURN 

490 PK0DE1,3:SCRBBN1,SC 

500 KS=IIKBY*;JFK$=""THEN500 

510 PMODBl t l:SCRBEBl.SC:GOTO300 

520 PRlNT«486 ( "any key to conti 

nue" ; 

530 IFIIKEYS= H,, THBN530ELSERETURN 

550 SCREEHl 1 SC:LtBE(0,20*B)-C3*N 

, 18*N) , PSEt; LINE (24*N, 20*I>- C2i* 

N, 18*N> , PSET: L INBC3*N, 8*1)- (21*N 

,18*N),PSET,B 

560 LIBE(2*N,»*N)-(12*N,2*N),PSE 

T: L IBB- <22*N, 9*N) , PSET: LI NEU 1*N 

,5*N)-(13*I,7*N> 1 PSBT 1 B 

570 F0RI=5T017STEP6:FORJ=10TO15S 

TEP5:LINB(N*1,N*J>-(U+2)*I, <J+2 

)*N>, PSET, B: NEXTJ. 1 

580 LIBE(8*S,24*N>-U1*N, 18*H>,P 

SET: LIBE- ( 11*N, 14*B) , PSET: LIHB- < 

13*1, 14*N) .PSET: LINE- (13*N, 18*1) 

, PSBT: LINE- (16*N, 24*N) , PSET 

590 LIBB(0,0)-(24*N-1, 24tN-D.PS 

BT, B: PAINT (2*B,22#B> ,4,4; PAIBT<2 

2*M,22*B> ,4,4: PAIBT (2*N, 2*N) ,3,4 

: PAIBT (9*1,11*1), 2. 4!PAIiTC12*I, 

21*1), 2, 4 

600 GOT0190 

650 SO=0:SCRBBH1,0: LINE (N/2, 2*N) 

-(3*H/2,2*N),PSET:L1BB<N,2*N>-<B 

, 24*1) , PSBT; LINE (B, 4*N)- <2*N , 4*B 

) , PSET : LIME (I, 22*N) - C2*I. 22*N) , P 

SET 

660 C0L0R3:LIBB(2*N,4*N)-<23*I,2 

2*fl),FSBT, B 

670 FORI=2T08STEP6:FORJ=4T010STB 

P6:LINE(I*N,J*N)-((I*4)*B 1 (J+4)* 

B) , PSET, BF: NEXTJ , I : FORJ=4T012STB 

P4:L1NE(12*N ( J*N)-(23*I, U+2)*I> 

,PSET,BF:BBXTJ 

680 FORJ=16T020STBP4:LINE(2*N,J* 

N)- <23*H, <J+2)*H) , PSET, BF: NEXTJ : 

FORJ=7T019STHP4:PAINT<18*N,J*N), 

2,3;NEXTJ:GOT0190 

750 FORI=8T024*H STEP32:F0RJ=8TO 

24*B STEP16: DRAVC4BK" +STRS CDt" 

, " +STRS (J ) *" ; BR8H8G5F8B0R10 ; " : BE 

XTJ,l:LlNB(0,0)-C24*B-l,24*B-l>, 

PSET.B 

760 FORI=6T024*N STBP32: FORJ=8TO 

24*N STBP16:PAIBT(I,J),2,4:BEXTJ 

,I:FORI=24T024*N STEP32: F0RJ=16T 

024*N-8STEP32 : PAINT ( I , J ) , 3, 4: NEX 

TJ.I770 GOT0190 

continued on page 58 
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MC-10 



by Chris Deacon 



This is quite a clever 
program in which you 
are aMe to feed in a 
picture of your own 
encasing, have it broken up into 
j igsow pieces and then you call 
go ahead and reassemble it. You 
will need a picture drawn in SG4 
or SG6 graphics node and use 
Vilson Hinve6 "Scr«en Save" 
program of March '86 CoCo. All 
Instructions are included within 
the listing. 



The Listing JIGSAV: 




REM JIGSBH BY CHRISS D Eft COM 

10 -osi.ipr.i0c:Lnnpi5oe-i>i#ic»(32i. 

C'*( 32)' Tf|!PB 1^364 

so pr i Hte i o > "***jicenHt** - i print 

i'X- FRIHT»V16C>> " IS YOUR PICTURE I 
M S04 OR SCC GRAPHICS HODE PRE 

&S '4' CiR -f,-- 

SB MUNI ~ttttH«f1IN1TftH*«flltltf|ff|i|| 

tlNMfttNM" 

40 fU=Illl'.EYi.IF R**»« THEN 40 

so fi=-&ei<nt--6->T3 F fltOM « nH 

D- fif <>»e" 1llF.il 40 

<-0 CLS'PRIH i Sift, -**tjj GSRWW >R 

RIWTttlge P -ff«*|« Ht««tRf«li||fN Ml 

*niummnn n 

70 fRWT<M*0, "PLEASE LWIO IH YOU 

R PICTURE FftQHTRPE THEM GIVE ME 

ft FEW MOHEHTS TO PROCESS nur> 

SHUFFLE THE-.UiF!<12)"PJC1URE" 

80 mill "«Nfl««HHll««it*ll«*«MiiMili 
| |fl« N H H » " 

tee CLCUil'Mr'Ui:E49ir.l .PI 

1 10 FORV^OTtM** STEP 128 TOPH=0103 

151F.P4 ! rORH'--0T0 3:FriRU=BT03 

I 20 P-H-»V*U*324U 

139 C*<T >*t*<T>*CHR#<PEEIt<R+f>>3t 

NEXT' NEXT *1>*<T>=C*< T >■ T=T*| :MEXT 

'NEXT 

mo REM**M0SEs oni'.ropf s-hlifflem. 

150 F0Rr=?2T01STEP-l a=RIU><£) Kf 
»C*<2) - C*< r >=C*< L > : C*< L ,«-K * • NEXT 
1 60 REM * **4 * I * -t*« ** t* * 4 M. *-.» ¥**»* 
1 70 T=l >F0PV=01O4S8STEP12e:'F0RH = 
01031 STEM rORR=OT03 H=t'+H+V<R 

iso p , OKeij.ftsc(Mi[»*< ct\i>,H*i,i >> 

190 P0fcr.H+32.flSC<MlDnC*<T> f R + 5, 

1 >> 

200 P0KEH+£4.fiSCtHlD*< CJCT >,R49, 

1 >> 



218 P0KEH#96#fiSC<MI0*<Ct<l >.R+13 

> i>>fMEXTi T-T+I 'NEXT -NEX1 

226 REM**#*****»***«4***t***«*t* 

230 X= 16 Y = 8X1=X'Y1=Y '0-16384 

240 HI- 1 MICE V* i Tl-X/4 -T2^Y^4 >T H 1H 

UT1*T2S&}*1 

250 X«=X+4tUfi« = "f1-nHDX>C«)-<ni="S 

?£0 Y»Y*4*C<H*-"M"nN0Y>GlJ-(fi*- , "Z 

H nMDY(12)3 

2/*o pokech-xi+yu32,aso;iiio$<c*c t 

Mvl) > POI'.E0+X*YT32,64 

238 Xl-X'Yl-Y' IFRS<>"M"THFH240 

388 E-E+l H<E >=T<B<E>-X*-1*32+163 
84' IFE<2THEH£4B 

318 fl«ft< l>tB»n<2> lFn^F:THEHE=i'G 
OTO240 

328 K = B< 1 ><J»B<&>»E*0»F0liI-8T03 
338 POI<EK«-I,ASC<Hn>t<C*<E>-l + l, | 
)> 

348 F0KEK + 32+l,flSC<MI[>*<CKB>.I* 

5,1 >> 

358 P0KEK4-64+ 1 . flSC< M 1 0t< U< B >. I + 

?,1 >> 

368 P0KEK+96-* i , ASC< H 1 OK C r< B >, I + 

13. 1 JWNEXTFCiftl^OTOS 

378 POKE J*- 1 , HSC< HI £>*< C*< fl># 1+1 / X 

>) 

358 P0KEJ + 32+l,asC<H|[>*<C*<R>#I* 

5,1 >) 

398 P0KEJ+64+] »RSC<M]D*< C*<R>, 1 + 

9,1 )) 

408 P0KEJ+96*l,fiSC<MTD*<Ct<Fl). 1 + 

13, 1 )>'NEX;T 

418 G*"G*<fl>»C*<fl>-C*<B>iG*<B>*€ 
t 

428 REM**1:**t*******4#*4:*t***s:t* 

438 FORI -11032 IF[>r< IX>C*(1)THE 

11240 

448 NEKTF0RI-1TO6 

450 S0UHORND< £55 >»4 ■ POKE 49 1 5 1 . 4 < 



KORDL«*i TO90 l HEXT i I1EXT 

460 P0KE49151,P1 

470 8*-IHKEYt:lF fl*--- THEM 478 

468 IF flfs-Y" THEN 158 

498 IF fit<>-H- 7HEH 470 

t.88 END 

018 CLS'FRIHTUl©, "* *t JIGSftW***" ■ 

PRIHT 

528 PRINT" JIGSRW IS R JIGSRH F'UZ 
PICTURES DRftW til sr.4 ft 
GRRPHICS MODES. S;RVEC> T 



'USING WILSON HIMJVES SC 
PROCRRH.TO MOVE PIECES 
USE THE ARROW KEYS TO 



AND THE FIEC 
OVER" 
PRESS RNY 



KEY 



?LE USING 
P SG6- 
D TAPE" 
530 PRIHT 
FEEH SAVE 

RROUHD 
MOVE THE" 

548 PRINT-CURSOR TO THE PIECE YO 
U HAHT TO MOVE THEN PRESS 'M' TH 
EH MOVE THE CURSOR TO THE PLRC 

E YOU WANT IT TO GO THEN "i 
5S0 PRINT"PRES9 'M 
ES WILL BE BWRPPED 
560 PRINT 'PRIHT- 

TO CONTINUE" 
570 fi#«!NKEY*'IF H»»«- THEN 578 
568 CLS>PRINTl?18,"*:**JIGSftN*:r.*"' 

PRINT 

590 PRINT "WHEN YOU HAVE SOLVE [> T 
ME PUZZLE THE SCREEN WILL START 
10 FLA5H WHEN THE SCREEN HAS ST 

OPPEB" 

K-0& PRIHT-FLASHIHG PRESS 

RESHUFFLE THE PICTURE OR 

t'HD" 

GIB PRINT FRUIT" PRESS RMY KE 

Y TO START" 

628 R=RNO<0>:iF INKEY*=-"THEN&£0 

638 CLS -RETURN 



TO 

TO 



o 
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.YOUR 




By Catherine Threlfall 
16K CB H- optional printer 

APPLICATION 




E HAVE HAD our CoCo 
for around five 
nooths now and this 
received a TP-10 



playing around with the 

I decided that it would 

to have a prograa. that 

both printer and 



ChristflaS 
printer. 

After 
printer, 
be good 
involved 
computer. 

Veil, here it is! ! ! ! ! 

In this program you answer 
questions and it all gets put 
together to make a story. Then 
your story, as well as your 
future (it is also a fortune 
teller) cones out of the 
printer! ! 

Vhen typing in this program 
you can change the fortune by 

changing the 'IF' lines. 



The Listing: 



GOTO10 

1 '********* STORY ************* 

***** CATHERIBE THRELFALL *** 
3 SA?E"187C:3":EHD 
10 PRIHT" YOUR STORY" 

20 PRIST" HI, WHAT'S YOUR HAKE?" 
30 IffFUT AS 
40 PRirr'KIHE'S COCO" 
50 F0K X=l TO 3O00:HEXT X 
60 CLS 

70 PRINT'TH G01HG TO ASK YOU SO 
ME QUESTIONS! !" 

80 PRINT" ADD LATER YOU'LL GET A 
PRESENT!!!" 

90 PRIHT"X***BUMBER OHE****" 
100 PLAY"T5;L2;C;L4;CC;L2;ECGGGG 



110 PRlMrVHAT COLOUR ARE YOUR E 
YES?" 

120 INPUT B$ 

130 PRINT"VHAT IS YOUR FAT0URITE 
THING?" 
140 INPUT Ct 

150 PRIHT" VHAT IS YOUR AGE?" 
160 INPUT D* 

170 PRIKT"SORRY ABOUT ALL THESE 
QUESTIONS! (LASTLY, VHAT HOSTH VER 
E YOU BORN IN?" 
180 ISPUT Q* 

190 IF Q$="JANUARY"THEN EI="A ST 
RANGER VI LL COKE INTO YOUR LIFE" 
200 IF Qt="FEBRUARY ,, THBH 3t="TH! 
S NEXT K0NTH VILL BE FUN FOR YOU 



210 IF Q$="KARCH"THEH E$="YOU VI 

LL RECEIVE MAHY NEV THINGS" 

220 IF Q4=" APRIL" THEH B4="YOU VI 

LL LEARN A NEV SKILL" 

230 IF Q$="MAY"THEH E$="EE CAUTI 

OUS OF GRAND PIAHOS.THEY ARE OUT 

TO GET YOU!" 
240 IF QS="JUHE"THEB E4="YOU VI L 
L KEET A NEV FRIEND" 
250 IF Q$="JULY"THEN E$="THE GRE 
BILS ARE OUT TO GET YOU. STAY IH 
BED FOR THE NEXT MONTH" 
260 IP Qt=" AUGUST" THEN ES="BEVAR 
E! TODAY IS NOT YOUR LUCKY DAY!!! 

270 IF Q$="SEPTEMBER"THEH E4="Y0 
U HAVE A SECRET ADMIRER! I" 
280 IF QS="XTOBER"THEN EJ="DURI 
NG THE NEXT VEEK YOU VILL MAKE M 
ANY GREAT ACHIEVEMENTS ON THE CO 
RFUTBRfl" 

290 IF Q$=" NOVEMBER" THEM E$*"YOU 
VILL MAKE FRIENDS WITH AN AHIMA 
L!" 

300 IF Q$=" DECEMBER" THES E$="IH 
OLD AGE YOU VILL GROV TO LOOK LI 
KE FATHER CHRISTMAS. ! VOMDER VHY 
!!!!!!" 



310 PRIHT#- 
320 PRINT0- 
32b PK1HT*- 
330 PRINT- 
OUT "A4;'\" 
i " 

340 PR1RT#- 
9 IS "D4;" 
350 PRlFTtf- 
360 PR1»T#- 
370 PRIHT#- 
380 FRIHTf- 

390 PRIHT#- 
400 PRI»T#- 



o 



2,CHR$(27) CHRSC14) 
2,Aft;"'S STORY" 
2.CHRSCZ7) CHXSU5J 
2, "THIS IS A STORY AB 
A»;" HAS "B$;" HYES! ! 



2, At;" LOVES "Ct;" 

YEARS OLD" 

2.CHRSC27) CHRS<14> 
2,"*YOUR FUTURE*" 
2,CHRS(27) CHRSU5) 
2 , ES 

2,CHR$(27) CHR»<14> 
2,"****THE END****" 



AS 



Hint ... 

This '- a snail progran to 
let you decide on a colour for a 
picture or whatever. Just Input 
the background colour and taen 
count the screens until you find 
one you like and Jot down the 
number. 

1 ' *** C0C03 COLOURS *** 

2 POKE 65497.0 

3 CLS; IHPUr'BACKGROURD COLOUR HU 
HBER" ; A 

4 FALETTE 0,A 
10 HSCREEN 2 
20 HCLSO 

30 FOR X=l T064 

40 PALETTE1.X 

50 HCOLOR 1 

60 HDRAWBM 190,150 U100L100C100 

R100" 

70 HPAIHT<180,iao>,l,l 

80 EXEC44539 

85 HPRIHKO.O)," " 

90 NEXT X 



o 
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16K ECB GRAPHICS 



by Justin Lipton 



GRAPHIC 0HE-L1HERS IS a 
program that I have been 
writing for some tine. It 
consists an 13 one-line program 

with each one creating a 
different graphic design. 

I hove called it "Graphic 
One-ilnero" and It hoa o nenu to 
access the various designs 
through you may wish to run the 
programs as one liners 

individually. 

Feel free to change, variables 
loop stepping rates and other 
parts of the program. You any 
wish to use some of the designs 
in your own prograns. 

Have fun-. 



The Listing: 



continued from page 22 



by the C ITOH 8510 which uses 
eight dots In a dot-colunn, so 
the DATA lines have nuabers from 
to 255. The eoiueande to the 
printer vere also different. I 
had the prograa on tape and 
tried leaving the DATA as it 
was. I hoped to be able to nake 
the necessary adjustments 

elsewhere in the prograa. Guess 
what? It worked! 1 got a very 
reasonable picture of Garfield. 

If you have the program and a 
DHP 110, delete everything (not 
auch) except the DATA lines, and 
add the following: 



121 PRIHT#-2,CHR»<18):RBH ORAP 
HICS 

122 PEUIT#-2,CHRS<27>CHB*<14>i 
REN ELOHGATS 

123 FOR X»l TO 90:RBADF 

124 IF F<126 THE" F-FM28 

125 IF F=256 THEH END 
12C PRIHTI-2.CHRKF); 

127 HEXT X 

128 PRIHTI-2;G0T0123 



If you would prefer to giv« 

bis tall a ' flnlch' then change 
the 128*e to 192's in line 119. 
I'll leave it to you to work out 
why. 



0OTO10 

1 '******«** GRAPHIC OHE-L1HERS 

******* JUSTIN LIPTOH ******* 
3 SAVE" 231: 3": BSD' 7 
10 PKODH 4, 1 

20 P=3. 1415926: P2=P*2:P3=P/2 
30 X*128:Y=96 
35 PCLS 

40 CLS;PRlHT « 3+7*32/ CHOOSE A 
HUKBBR U-13)";: IKPUT A: IF A> 13 
OR A<1 THEII 40 ELSE SCBEEH 1, 1:0 
HA GOSUB 60,80, 100, 120,140, l&O.i 
80,210,230,250,270,290,310 

41 A$=IHKEY*;IF A4="" THEM 41 
45 GOTO 35 

60 OX=52:0Y=59:R=95:FOR L-l TO 1 

50:Z=RHD(0)*P2::HX=R*COS(2)+X;HY 

=R*SIN(Z)+Y:LIBB(OX,0V:-CNX,HY>, 

PS£T:0X=HX:0Y=HY:HEXT:RBTURH 

80 Z=P2*RHD<0):R=95:CX=R*COSCZ)+ 

X:CY=R*SIHCZ)+Y:FGR L=l TO 110:2 

=P2*RND (0) : NX=R*COS<Z>+X: HY=R*SI 

H<Z>+X;LlHE<CX,CY>-<HX ( irr> ( PSET: 
HEXT: RETURH 

100 R=95;R2=R"2+1:F0R J=0 TO R S 
TEP 5:PX=SQR(R2-J*J):PT=SQR<R2-P 
X*PX) I LIHBCPX+X, PY+Y)- (X-PX, PY+Y 
),PSET: LIHE-<X-PX, Y-PY-.PSET: LIH 
E- (PX+X , Y-PY) , PSET : LI HE- <PX+X, PY 
+Y>. PSET: HEXT: RETURH 
120 Z=2:R=O:Zl=.5:RI=.5:C=10. 18: 
FOR L=l TO 150:Z=Z+Z1:R=R+RI:KX= 
R*C03<Z)+X: HY=R*S1H<Z>*Y: LIHEtt, 
Y>- <HX, HY> , PSET; NEXT; RETURH 
140 R1=20:R2=45:R3=115:R4=85:F0R 

L=0 TO P2 STEP P/3:FQR LI = T 
P2 STEP F/6:X1=R3*C0S(L1)+X:Y1 
=R4*SII(L1>4Y:X2=R1*C0S<L>+X:Y2= 
R2*S[H<L>+Y:LlHE(Xl,Yi;-<X2.Y2), 
PSET: NEXT LI, L; RETURH 
160 Rl=20: R2=45: R3=115:R4=85: FOR 

L=0 TO P2 STEP P/3:FOR L1~0 TO 
P2 STEP P/6:X1=R3*C0S<L1)+X:Y1=R 
4*SIH<L)+Y:X2=R1*C0S<LJ+X:Y2=R2* 

SII<Ll)+T:LIIB<Xl,tl>-(X2 i t2>,PS 

ET:HEXT L1,L:RETURM 

180 R=95:L=3:FOR J=0 TO P2 STEP 

P/100:PX=R*CQSU*L)+X:PY=R*SIHU 

)+Y: LIHEtt, Y)-<PX, PY), PSET: HEXT: 

RETURH 

210 FOR A=l TO 192:B=S!H<A*6)*6+ 

100:LIHB(A+20,B)-<B+20,A),PSET:H 

EXT A: RETURH 

230 FOR J=0 TO P2 STEP P/64:R1=9 

5: R2=35: R3-110: X1=R3*CQSU>+X: Yl 

=R2*SIH(J)+Y:X2=R2*C0SU-P)+X:Y2 

=Rl*SIH(J-P)+Y:LitfE(Xl,Yl)-<X2,Y 



2), PSET: HEXT J : RETURH 

250 0F=P/3:F0R J=0 TO P2 STEP P/ 

64:R1=95:R2=35:R3=110:I1=R3*C0S( 

J)+X:Y1=R2*SIK(J)+Y:X2=RS»C0S(J) 

+X: Y2=Rl*SIH<J+OF>+Y: :LIHE<X1,Y1 

)-(X2,Y2), PSET: HEXT J : RETURH 

270 OF=P1/3:FOR J=0 TO P2 STEP P 

/04:.Rl=95:R2=35:R3=110:Xl=K3*CO3 

<J>+X:Yl=R2*SIHU>+Y:X2=R2*COS<J 

+OF>+X: Y2=R1*SIHCI)+Y:LIHE<X1,T1 

)-CX2,Y2>,PSBT:HEXT J; RETURH 

290 R1=120:R2=30:Y1=40:Y2=152:FO 

R J=P TO 3*P STEP P/32:PX=X-R1*C 

0SU>:PY=Yl-R2*SIH<J):CX=fil*C0S< 

J)+X:CY=R2*S[HU)+Y2:LIHE(PX.PY) 

-(CX.CY), PSET: HEXT J : RETUBH 

310 FOR A-l TO 102sB=BXP<A/36.51 

9293) ; LIHB (A+20, B>- (B+20, A) , PSET 

:HEXT A: RETURH 

O 



continued from page 55 



850 COL0R3:LIHE<11.5*H, 12*i:-(12 
.5*H,24*S),PSET,BF 
860 COLOR2:FORI = 1T060:R=RHD(100) 
: LIBE(12*H,12*H>-(12*H*(1+C0S<5) 
) t 12*H*{l+SIH(R>)>,PSET:R=RlTD(10 
0) ; LiHB(12*ff, 12*H)- (12*H+6*IT*COS 
< R) , 12*H+6*H*S I H (R) ) , PSBT: HEXT I 
870 GOT0190 

950 F0RI = 1T06STEP. 5: CIRCLE (12*H, 

12*W>, i*H,2:HKXTl:FORl=1.047T06. 

29STEP1.047:X=8tH*COS(I>+12*H:Y= 

8*H*SIH( I H12*H: CIRCLE CX,Y),3*H, 

2:PAEHT(X,Y) t 3.2 

960 FORJ=1.047TO6.29STEPl.O47:CI 

RCLECX+3*B*CQS<J+I),Y+3*H*SIHU# 

I)),H,4:HEXTJ:HEXTI 

970 GOT0190 

1000 F0P.l=12T012*H STEPS ;; C0LOR2 

:L1HE(I,0)<24*H, I) , PSET: LTIB- <2 

4*H-r,24*H),PSET;LI8B-C0,24*H-I> 

, PSET: LIHB- <1,0>, PSET 

1010 COLOR4:LIHE<24*H-I,0>-(0, I) 

, PSET: LIHB- ( 1 , 24*H> , PSET: L HE- (2 

4 *H, 24*1-1), PSET: LIHB- £24*1-1.0) 

,PSBT:HEXTI 

1020 G0TO190 

1050 PI=3.1415927:C=2:FORJ=lT04: 

F0RI=4T024*H STHP4: X=5*J*H+3*H"*S 

IH<1*J/.:P1*3*H>>:C0L0RC:LI1'B<I I X 

)-(I,5*J*H),PSET:NEXTI:C=C-H:IFC 

-5THEHC=2 

1060 HEITJ:COLOR4:GOTO190 



O 
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SET NUMBERS 



MC-10 



This 1b only a short program 
but it is very interesting 
to Bee your selected number 
graphically formed on the 
screen. A very good quickie 
pragran. 



by David Hill 



The Listing SETHUMBB: 



8 REM 
1 REn 



SET NUMBERS 
BY CHRIS t'EftCOM 



208 CL80*C«RHIXS>*Y"8 

21 e ft*u >=-iini- h*< 2>» ,, ioei0- i 
fi*<3)="*0W :n»<4>«"oeeie" i fi*<5 
>-»eeiift" fi*<6>-"ie«00" <n*< 7> B "i 
0001 ■ ■ n»< 8 >="00i 1 1" 

226 B*<&>=" 17771" B»< 1 >-"45448" i 
EJ*(2 >"-13l61" iB«3>- ,, i3i3i M 'B*<4 
>s"22144*'B*(5)="l613r-E*C6>«-l 
61 71 " Err 7 >«" 17333" 



1-30 Et*ce>--i?171"'B*<9>-M7l31' 
240 PRIMiee," TYPE IH ft NUMBER 
USING NIHC." PRINT" CHRRflCT 

ERS OR LESS" 

£41 PRlNTPRINTe&4.' THEN PRESS 
ENTER"; 'INrUTH 

242 C*-H1D*<STR*<M>,2> 

243 IF LEN<C*>>? THEN 246 
246 X»32-LEH'-t*>*6'2'CLS0 
E6e FOR 1*1 TO LEWCn 
27B &=vRLCnID*<Ct. I* 1 >> 
280 FOR T"l TO 5 

29© U*VftL<l1It'*<BJ<tO.T.l >) 

300 FOR R"l TO 5 

310 V-VflL<MIt)»<ftf(U5.R.l>> 

320 IF V«l THEN SEUX,Y,C> 

340 X=X*1 'NEXT Y-Y*l 'X-X-5 

350 NEXT ^Y=8'X-X+6^HEXT .COT 0240 



o 




MC-10 

A ■OTHER DESPLAT of Colour 
Graphics which rather 
resembles the nam* Cogs, A 
modified version of Bob a 

Tino Delbourgo'a prograa. The 
nriglnsl had 38 pages, this has 
16. Chris has also modified 
Grahane Pollock's page flipping 
program to flip 18 pages which 
will reside at the top of the 
RAX. 

The Listing COOS: 



6 REM COGS; BY BOB ft. TIMO 
DELBOURGO 

MOO IF I El* BY CMkiSS DEACON 

10 CLS'X-27392^CLEHR1©0,X^<b2 7';:*' 

2P0KEI6917, 126 

26 POKE 1 69 1 6 , I HT< *$'236 > ■ POKE 1 6* I 

S<.X-IHT(X/2r.fc>*2r.^ 

30 FOR2=X10X»35 ' REHDR • POKES # 8 'HE 

XTZ 

46 OflTM.Viv. . :-■; . (.i :"vr . 108,0, ICG 

.0.6. MO. 144.0,36. 7.206, 103. 0.25 

5. I 87. 6. 57, 255, 107. £ 

50 [>A1FI56. 167. 0,6,66. 140,65.6.38 

.225.5? 

60 PI =3. 14 1592£5i FORI =0T035STEP2 

iCLSO 

76 FORT - 1 / 1 IT Ci2»P I + I / 1 1 ST EP. 2 CC 

atOS(T>iSS-Slll<T) 

60 SET<21*1 ltCC.16*S*SE,2 > SEU4 

2-1UCC, 16-9tSS,3?'SET<5-5*CC. 16 

-4«SS,-l>'StT<5e*5ICC.16-4*SS, 1 > 

90 SET<21-4*CC.4~3*SS,5>'SET< 21- 



by Chris Deacon 




«CC»2ft-3*SS#6 MSETC42*4*CC*4*3* 

&S. 7>'SET<42*4*CC*, £&'3ICS.6> 

160 HEXTT 

lift F0RC-ei03'T-C*PI/4*IWI''36 T 

T=CtPI/'4*I*Pl'*ie>F0RR*-9TO9'Cl-C; 

OSt T >-Sl=SIMT )iC2 e C0S<TT>S2=il 

IKTT > 

1 2& GET< 2 1 <*RtC 1 , 1 1- + . 8iB*S 1 . C+ 1 ) i 

SET<42-R*CI» I6-.6*R*SI>C*5> 

130 SET(5-.5*R*C2, 16-. 4*R*S2*C»5 

> SET<53*.5*RtC2. 1 6* . 4*R*S2,C«1 ) 

140 SE1<21-.4*R4X2.4-.3»R*S2,C»5 

> I SET<21-.«*R*C2.28-.3*R*S2,C*5> 

150 SET(42-».4lR*t2.4*.3*R*S2.C*l 

>'SET<42+.4*R*C2.2$+.31R*S2.C*1 > 

160 HEXTR.C 'S» I '2+1 

17G F0RV=GtTU15 FOfcM=0TO31 

160 P0KE27l3€+H*V*32»512*S.PEEK< 

I63M+H+V*32J 

190 HEXTHi V. I i DL-30 

200 P»USR(6)<ftf»lHK£Y*>(>L-bL+lQ* 

<<fi*--fi-fiNOOL>10)-<fi*-"S" )> 

210 FO*;I = lTOr'L'NE!<T GOT0206 



111 ECHO 
SONG 

16K ECB by Craig Stewart 



ECHQSONG is a small 
experiment using a short 
sound program that 

a 1 Iowa the user to input eongs 

and play then so that they sound 
like they're being played in an 
echo-chamber. 

Although extremely cinple In 
operation (simply play a sound 
and then pUy the sane sound at 
a lesser volume afterwards) I 
found it quite pleasant to 
listen to - it gives songs a 
'grand' touch. 

VI thin the program, I have put 
several song6 in data statements 
<1 really apologize for the 
songs, but I ara not overstocked 
with music books - 1 am sure 
someone else could come up with 
something ouch better). 

To enter your own songs, put 
then in data statements wltfc 
commas between every note and 
end the song with a "ZZ'\ 

The Listing: 

G0T05 

1 •******#*** BCHOSOHG ********* 

****** CRAIG STEVART ******** 

2 SAVE"14oE:3 ,, ;ERD'10 

5 CLS3:PRIIT«1Q8,"ECH0 SOHG EXP3 

RIMEHT"; 

10 til* AK70.3) 

15 PLAY'*L2":P0KE65495,0 

20 LU)=38:L<2)=64 

25 READ A*: IF k$="ZZ" THEK CLS:3 

ID ELSE PUY"V31 M +a*:IF A*>="A" 

AND A$<="G" THBHPLAY"V10"+AS:GOT 

25 

30 GOTO 25 

35 DATA 021135, D.G.L25, B.L35, B, A, 

L25.G,L35.A,G,E.L10,G 

40 DATA L35,G,G,L25,B,L35,C,B, L2 

5O3,D,L35O3,C ( O2.B,L10,A.L35O3.D 

,C,02L25,B, L35,B,A.L25,G,L35,A,B 

,03. D, L10.C, 13502, E,E,L25,D,L35, 

F,G*L25,A,L35,B,A,L10,G 

45 DATA P1L35,C,E,L25,C,G,G,G,L1 

5.G ,13503, C,O2 r L25,G,L35,E,L40,F 

.i^S.G.G.F, D, 1.10,0,135,0, B.L25.G 

,0,0,0,115,0,13503,0,02125,0^35 

,E.L4 0.F,L25,G.C,F,D.L10,C 

50 DATA OSLSS.C.Oai^S.B.A.F.A.F, 

L2C-,0 ( L35 I A,L25,G,O3L35,C,02,B,L 

25.A.F, A,03L20,C ( 02L10,G,L35,C,E 

,L25,G,G,C,G,L15.G,L3503,C.L2502 

,G ( L35 ( E,F l L25,G l 0,F,D,l,10 i C 

55 DATA ZZ 



o 
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^■■■b Here's What's Happening ^Hk 



InterTRN News 

Veil we now have a new 

Computer Hardware buyer. Hie 
name Is Farley Bartholomew and 
he has been with InfcerTan for 
quite a few years. 

Farley's most recent position 
with InterTan has been in the 
Customer Services area of the 

organisation and he brings to 
the position a thorough 
knowledge of the KS DOS and Unix 
operating environments, 

F&rloy will ba heading up coma 
major changes in the way 
InterTan does its work here In 
Australia over the coming 

months, 



The first change you will 
notice will be the reduction in 
pricing of our major hardware 
lines. 

Hxpect us to be even more 
competitive in the future! 

First prices to fall will be 
the T1000 EX which goes from 
$1499 to $1299, and the T1000 SX 
which goes from $2299 to $1999! 

More are to follow - so keep 
your eyes open - we Intend to be 
the conpany moat Austral taut, 
shop with for their computer 
software and hardware this 
year - and with prices like 
these, and service like ours, we 



think we can achieve it! 

Just released this month is an 
upgrade for Tandy 2000 KS DOS 
owners. 

The new DOS, V2.ll.03 is now 
available and makes the T2000's 
DOS more compatible with the DOS 
in the other KS DOS computers in 
our range. 

If you own a T200O, please see 
your local Tandy shop for more 
details! 



By Wilfred Bggert 



AND NOW, THE fiOLDLINK MODEMS! 



The Goldllnk On Board Xodem 
uses the international V21 or 
V23 communications standards to 
obtain reliable 300 or 1200 baud 
transmission even over poor 
quality connections on the 
public switched telephone 

network. 

This modem is based on the 
technology and design expertise 
first used in Australia's first 
microprocessor controlled modem, 
the Datasat V2123A. 

Additional features of the 
Goldlink modem Include auto 

dialing, auto answering, auto 
disconnect and compatability with 
the industry standard Hayes 
command set for microprocessor 
controlled modems. 

The modem comes complete with 
VTEX2 conunications software, an 
easy to use data communications 
package for V21/23 modems. 

One of the most powerful 
features of this software is the 
macro command which allows the 
user to save a series of 
keystrokes or functions to a 
sub-menu, reducing the tedium 
and time taken oe line. 



Tou can preprogram VTEX2 to 
autodial, auto log on, and 
either save the entire session 
to disk, or print it on an 
attached printer. 

The Cams 

software also 
supports 300 

baud 

communications, 
ASC 1 1 , 

telesoftware and 
X- Modem 

protocols, all 8 
colours on a 
standard colour 

graphics card, 
automatic upload 
and download at 
1200 baud, and 
access of a PC 
by remote 

control . 

The modem ie 
available from 
Goldsoft and its 
distributors for 
$555, including 
software. 



Telgraph goes OUT! 



Adam King, owner of Telgraf, 
6eems to have disappeared! 

Funny that really - it seems 
he' owes a lot of people a lot of 
money! 

A recent article in CoaputLng 
Australia put his debts at 
$300, 000! 
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SUBMITTING 
YOUR WORK 



Ah! So you've finally finished that 
program? And you say to yourself, "What 
a great program that would make for Co Co 
Magazlne/Softgold Magazine! " 

And so you wonder to yourself, "How am 
J going to send this program. Id to the 
magazine?". Some time goes by and you 
suddenly realise, "Hey, there's an 
article In this month's magazine about 
submitting yaur work. I'll read through 
that and maybe that'll help me." 

Kn yrw rip the magazine out of your 
stack of other CoCo/Sof tgold magazines 
and read the article on how to submit 
your program. 

It reads . . . 

" ... we accept programs stored on 
both tape and disk OMLY along with a 
hard copy of the program(s) Coptional 
only; we use It here as a reference to 
see what the program is/does) and 
suitable instructions. 

Saving to Tape 

Each program would be best saved three 
times with the last save being In ASCII. 
The tapes we recommend you use are 
either a C30 or less (the reason for 
that Is that tapes longer than C30 have 
a tendency to tear). 

It'd be even better If you could 
include some Instructions along with the 
program, either as a seperate program or 
in the wordprocessors listed below. 

Saving to Disk 

Vlth disk, you'd be best to save it 
three tines with the last save being in 

ASCII. Also, the extension name for the 
second and third copy should be 
different, so to distinguish the three 
copies. A simulation is given below. 

' . . . 1 have j ust saved 3 copies of a 
program called "HORSE". The directory 
listing would be: 

HORSE BAS B 3 
HORSE 1 0B3 
HORSE 2 A 3' 



Any instructions could be saved in the 
same system using either a program or in 
the wordprocessors listed below. 



Wordprocessors we use. 

Here is a list fron put most 
preferable worprocessors to the drastic 
measure one could take to tell us tow 
your progran works. 

L. Telewrlter/Telepatch 

2. Scripslt 

3. PenPal 

4. VIP Writer 

5. Any form of data file. 

6. Instructions written in a seperate 
program. " 



"Oh wow!", you think to yourself as 
you read it with awe and astonishment. 
So you go about your busy little way 
saving your program and instructions to 
tape or disk. Then you say to yourself, 
"Where do I GSnd It?" 

You read the article on . . . 

"... any articles and programs should 
be sent to this address: 



Submissions Editor, 
Freepost 5 
PO BOX 1742, 
Southport, Qld, 4215 



All mall to this address need not be 
paid for. 

All tapes and disks received will be 
returned after three months in case we 
need to refer to something or re-print 
something." 



So place your tape/disk along with 
your hardcopy of tho listing in a 
postpack <or suitable wrapping) and pop 
it in the mall. 

All done! t 



WHArS ON THE BEST OF CoCoOz 



Beet of CoCoOz fl. EDOCATIQI 

ROADQUIZ ROB VEBB 

SHARE KABKBT ALBPH DELIA 

RAIOMAI ALEPH DELTA 

AUSTQUIZ P. THOMAS 

ALPIUBBT ROI VEBB 

SPELLIIG TUTOR [AH LOBLEY 

TAIK ADDITIOI DEAI HODGBSOB 

PRACTiOI TDTOR ROBBIE DALZELL 

TABLES BARBIE GBRRAID 

IODSA BOB WALTERS 

KIDSTUFF JOHAIIA VAGG 

TAXRAI TOiY BARMTT 

FLAGQ.UIZ ROB VEBB 



Beet of CoCoOz #2 part 1 16K GAMES 



PYTHOI . 
COCO* I ID 

POKERMCH 

OILSLICK 

SPEEDMATHS 

CCMETEOR 

BATTACK . 

SKT1IG . . 

PROBDICB 

RALLY . . . 

CHECKERS 

PQURDFAV 



.- V. ARMSTRONG 

STEVE COLEMAR 

GRAHAK ft MATTHEWS 

. . JEREMY CARS 

DEAR HQDCRSOI 

. ■ BOB THOXSOR 

.. JEREHY GAIS 

. . JOSHUA GAIS 

BOB DELBOURGO 

. TOIY PARFITT 

... J ft J GARS 

. JOHAIIA VAGG 



B«t of CoCoO* #2 part 2 32K CAKES 

TREASURE DAVIDSOI ft GAIS 

SHOOT I BG GALLBRY TOM DYKEMA 

HASTERHI ID GRAHAK JORDAV 

GARDBI OF BDBI DAVE BLUHDORI 

AIBSTHESIA HIKE MARTYR 

YAHTZB8 KEVII GOVAI 

ORBGOI TRAIL DEAI HODGSOI 

BATTLESHIP CHRIS SIMPSOI 

ADVEITURE + STUART RAYIBR 

AIDROMEDU MAT RBTTRIDCE 

LARDATTACK ALDO DEBERIATJIS 



Beet of CoCoOz #3 UTILITIES 



R*«t at CoCoOx #4 BualnaM 

HI ALBX. KARTKARM 

«d:«k; Disk Directory Managar) 

PBRSMAI PAUL HUMPHREYS 

(Paraonol Flnanca Managanant) 

BAUKSTAT BARRY HATTAH 

<Ainual % Btora Statanant) 

CC6 CRAHAK MOPPHBTT 

(t*p«i Salas |nwoicing> 

H5URB ROT VAIDERSTBBM 

(Ana lye* Horaa Cantanta) 

COCOFILE BRIAR DOUGAI 

<tap«i databaa*> 

DPKS PAUL KUMPREYS 

(dl«k| Dldk Program Management B/»J 
DATABASE PAUL HUHPRBYS 

<t.pai THB tap* datvbaaa) 

RESTACC DURG LY 

<tape; Reataurant Account*) 
SPDSHB8T GRAHAM HORPHHTT 

<dl«ki 22 column epraadahaat ) 
PR5PDSHT GRAHAM MORPHBTT 

<dl**i prints out "SPDSHBET" ) 

ACS3 QREO VILSOR 

(di*ki Kultt di«k datada.**} 



BflPt of CoCoOr 05 ADVBRTURES 

* D » 32t S. RAYRER 

QUEST TORT PARF1YT 

LAIYRUTK , , JAMES RBDRORD 

ADT ♦ SBAR LOVB 

CRYSTAL CftK SPRIRCETY 

"'SOP TIH ALTOR 

OPALTOM | AH CLARKB 

VI2AR D DARRELL BERRY 

TREASURE c. DAVIDSOK 

L0S T ALEX. HARTMARR 

B*at of CoCoO* ffl PRESCHCOL 

ALPHABET STUART DAVSOR 

HATDAMCB JOIIARRA VAGG 

AUSTSOIQ McDERMDTT FAN I LY 

ADVAICB RJCDERM3TT FAMILY 

VALTZ1R5 McDERMUTY FAMILY 

TIKEKAMI NeDERttJTT FAMILY 

BARD KoDBRMDII FAMILY 

KIDSTUFF JOHARRA VAGG 

MATCHBR ? 

LETTERS JACK FIKRBX 

BABYSIT JOHARRA VAGG 

SPBLLIKG JOHARRA VAGG 

SPIEDTAB DEAR HODGSOR 

10 FACES JOHAIIA VAGG 



Bflst of CoCoQ* #7 GRAPHICS 

LIL'COCO ARDRBV VHITB 

THE ROOfl HERHARH FRBDRIKSOR 

BACKSTREET JOY WALLACE 

LOCO KIKE 0' BSTHRRB 

COCO ARI SAMDY McGREGOR 

KAHCA JOHAHRA VACO 

THE BOAT SAMDY McGREGOR 

SAD COCO P, BOLLB 

TOWER CA.SYMS 

VIRDY DAY SARAH LAV 

SAILIRC STEVB YOUHGBERRY 

OUTHOUSE STBVE YOUNGBERRY 

SMURF . JOHABRA VAGG 

aURSTATJS STBVE YOUKCBEBRY 

HELICOPTER ANDREW VHITB 

MARTHA ARPREV VHITB 

'BAD ROOM STEVE YOUHGBERRY 

MCC JOY WALLACE 

EACI.E ? 

BLASTER PAUL YOULD 

FOGHORN ,,.,. PAUL SIBYEM3QW 



Best of CoCoOz *« ICK QAHfiS 



ALIBI i . 
QWERL . 
SHOOTOUT 
SHUTTLE 
FROO . . . 
FROG RACE 
KIHHAT . 
GRARDPft! 
VATER V#RS . 
CATERPILLER 
DETECTIVE . . 
BREAKOUT . . . 



STUART SAIDERS 

DARRELL BBRRY 

CRAIG STBVART 

CRAIG STBVART 

DARREN OTTERY 

i . . TOM LEHARB 

. . . TOM LBHAMB 

.... DOUG GRBY 

JUSTIM LIPTOM 

JUSTIM LIPTOM 

.. VAL STEPHER 

WHY/01 LT 



Best o( CoCoOl 09 32K CARES 



TRIOMIRO . , . 


BOB DELBOURGO 


MATCHER. 


CHARLES BARTLBTT 


OO 


BOB DELBOURGO 


HARZOD ..... 


MAX BRTTRI DOB 


CHORPBR 


MAX BBITRIDGB 


POPBALL .... 


MAX BBTTRIDGB 


LUDO 


WHY/BILT 


SABRE 


ARDRBV SIHPSOR 


ROVBABOUT . - 


KEVII GOVAM 


JIGSAW 


J ARES REDHnUD 


LABYR1ITH . . 


JAMES RBDMORD 


TAKK m 


CRAIO STBVART 



SCREBI PRUT TOM DYRBMA 

RAKTEST TOM DYKBKA 

PRIIT SORT PAUL HUMPRIES 

BEAUTY BOB THOMPSOR 

DATAGBI SOB 1 1 BROW 

PCOPY BR I AM DOUGAI 

FASTBIT OZ-V12 

MORI TOR + BRIAI FERGUSOI 

COFYDIR THOMAS SZULCHA 

LABELLSK FRED BISSELIIG 

SPEED COITROL PAUL HUKPRIES 

2BC VARRBI VARIE 

CRBAT-A-TITLB BRIAI FBRGUSOI 

DISKFILB BRIAI DOUGAI 

BIG REMARKS BOB THQKSOI 

LA SELLER SORDOM 8RMT2BI 

DIR MORRIS SIIGBR 

HI ALEX. HARTMAII 



Pleas© 


Bote 




Soro 


of 


tbe 


prograns on 


Best 


of Cocooz 


# 3 


and f4 


will 


not 


work 


on 


the 


Coco 3. 













Beat of CoCoOz 010 Education II 

* BT *0* DEAR HUDQSOM 

DRIV8RS TEST ARDRBV SIMPSOI 

SALE JUSTIM LIPTOR 

TABLES PAT KBPKODB 

OPALTOI (AM CLARK8 

CAPITAL LETTERS BOB KORIB 

TEST MATCH JBFP SHEER 

SERTERCE BRDIHGS BOB HORMB 

ESCAPE DEAI HODOSOH 

RA I LKATH . BOB HORRB 

COVX1DOVK DEAB HOD0SOI 

WHATZ1T BOB HORRE 

HOMOPHOMES BOB HORRB 

COMPOUID VOSDS BOB HORR8 



P.*-..! nf CoCoOi *1I IducatLon HI 
This la ■ DISK only laaucl I 

CHATVII HAROR BOB HORRB 



TAPE $16 each 



DISK $16 each 
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GOLDSOFT 



P.O. BOX 1742, SOUTHPORT. QLD. 4215 Phon€ (075) 510 015 

«M*eft M« U.t « .t tarek. WOT «"» ' " g " ** ^ "*""—*»■ 



Magazines, Tapes a Disks 
Australian CoCa (Advanced Programs lor jour CoCo)i 
Magazines: laps « ) or Disk < ) 

12 tenths M9.W < > 13 Months »123.75 C ) 

Month* 424.95 < ) Months ft 74.25 C ) 

1 Month ft 4.50 < > 1 tooth ft 16.50 C ) 

Soltgold (Programs ?or your CoCo)i 

Magazines Tape < > or Diak < > 

12 Months »39.W < ) 12 Months »123.75 < ) 

6 Months S24.95 < > 6 Month* ft 74.25 < ) 

1 Mouth * 4,50 < > 1 tenth • 16-50 < > 

Cold Dish - Available Quai terlyi 
1 Month i ft 16. 00 < > 

BACK ISSUES 

Australian CoCo: Sep 84 - Dec 85: »2. 00 bo < > 

Australian CoCoi Jan 88 - Feb 87) *3.75 ea < > 

Austral ion Mlcoi Aug 84 - Dec 85i *2. 00 aa < > 



ADDITIONAL REQUIRBKEBTG 



lew Subscription! ( ) Renewal! ( ) 

8ub Xo: 

lase: 

Address: • ; . . . . 



P/Code. 



Phone: ( ,. 



Please find enclosed: 

a. Cheque < ) 

b. Xoaev Ordsr C ) 
o, Credit Card ( ) 

Credit Card Type ft lusbert 
Bankcard < ) Mastercard C > 



Visa ( » 



Expiry Date: A 

Author lead Asounti ft 

Signed: ..-. 




SEEN 

GOLDLINK 

YET? 



You can only access GOLDLINK on VIATEL 
if you have a videotex terminal program 
anu a modem capable of operating at 1200/75 baud. 

Now Goldsoft presents two great specials! 

1 CoCo Owners: Modem, CoCotex Software 

and cable $289.00 

2 TANDY 1000 or IBM PC Owners: Modem, VTex 

Software and cable $399.00 

GOLDSOFT 

PO BOX 1742 

SOUTHPORT QLD 4215 

(075) 51-0577 

="__ 63 



ACT; 

CARBERKa hth 
CAHBEPBA STH 



J OKU 8JRGBR 062 Sfl 3094 
LES THURBOH 062 60 9326 



(Sloji iM'twrcn muiiliris — Ml. rise 
ali; toll, hyplirn bctwicn - both) 



ISV: 

sydbeyi 

black tovh 
capljrgford 

CHATS«OQn 



TAT DOUSE TT 

KEITH GALLAGHER 
ROSKO RCKAY 
BILL O'DOSRELL 
COLY10R HERHAR FPEDPIISSOH 
FAIRFIELD AfirH PITTARD 

GLADE3VILLB AARR ROTHVELL 

HILLS DIST ARTHUR SLADB 

HORRSBY ATHALIE SHART 

IBGLEBUPH STEPHER RIDGEVAY 
KEirilURST TOR STUART 

LEICIMARDT STEVER CIICOS 

or GORGE GCHECARAY 
LIVERPOOL LBOKIB DUCGAR 

HACQUARIE FIELDS 

BARRY DAIKTOR 



MRTO 

SUTHERLABD 
SYDREY EAST 

ALRIIRV 

ARM I DALE 

BLAXLAND 

HHUIER HILL 

CARDER 

CUFFS HARBOUR 

COORA 

COORANIUJKG 

COOTAHURORA 

DENILIOUIH 

3UBBO 

FORBES 

COSFOfcD 

GRAF TOR 

QtlfKA 

IUREE 

KEHPSKY 

LEETGH 

LI SHORE 

LITHGGV 

KAITLARD 

RUHEE 

RUDGEE 

IMBUCiA HDS 

■AKKURIBE 

IUVCASTLB 

lUVKA 

FARKBS 

rO»T HACQUARIfi 

SPRIRGVOQD 



GRAHAM POLLOCK 

IAR AMABEL 

JACEY COCHROS 

PUN IH'BCAI 

DOUG BARBER 

BRUCE S'JUIVAR 

TERRY VOORAR 

KEVIR V1ITERS 

BOB KERRY 

ROSS PRATT 

CEORQE SWAGE 

CHERYL WILLIS 

VAVRE PATTtHSOB 

GRAERF C1ARKB 

JOHAHRA VAGG 

PETER SB1FERT 

PETER LIHX5AY 

1CHAEL J. HARfNANH 

PAUL MALOREY 

RICK FULLER 

BRETT VALLACE 

ROB HILLARD 

DAVID BERGER 

BILL SROV 

ALF BATE 

BRIAI STORE 

VEBDY PEPERSUH 

GRAERE CLARKE 

LYR DAVSUH 

ROY LOPEZ 

DAVID SRALL 

HOE ULOR 

DAVID SBAROKS 



02 048 3619 




02-627-462? 




02 624 3353 




02 419 6081 


1 Mi 


02 623 6379 


t 1 


02 72 2861 


■ ■ 


02 817 4627 




02 633 6940 




02 646 6830 


Wm 1 M 


02 605 7382 


L ^^k J 1 


02 654 2178 




02 560 6207 


TAHROOfi 


03 560 9664 


UPPER HUBTBR 


02-607-3791 


URALLA 




VA4GA VAGOA 


03 618 1909 


VYORG 


02 603 5026 




02 538 3391 


IT: 


03 344 9111 


: AT vi F 


06ft 43 1031 




067 72 7647 


OLD: 


047 39 3903 


BRISBASS: 


080 88 2:t62 


BIRKPALE 


046.66.8068 


CLAYFIELD 


066 51 2205 


COLL'VOOD PK 


064 52 3065 


1 PSVICH 


049- 7? 1054 


PIRB RIVERS 


069 42 2264 


SOUTH VEST 


05& 81 3014 


SARDCATB 


068 89 6549 


SCARBOROUGH 


066 52 2943 


TOUDnMB 


043 32 MM 


AIRLIE BEACH 


066 42 2503 


BIOOBRDER 


067 79 754*? 


BOVER 


069 24 I860 


BURDABERO 


065-62-7222 


CAIRRS 


069 -53-208 1 


DAL BY 


066 21 3069 


GLADSTORB 


063 52 2382 


GOLD COAST 


049 66 2557 


GYRPIB 


067 52 2465 


HEPVEY BAY 


063-72-1958 


RACK AY 


065 68 6723 


RARYBOHWCH 


068 89 6549 


RT ISA 


049 49 6144 


HUPGQP 


044 48 7031 


ROCKHAKPTOH 


068 62 2682 


TARA 


065 63 8223 


TOOVOOKBA 


047 51 2107 


TOVasVlLLB 



GARY SYLVESTER 046 81 9318 

TERRY GRAVOLIR 065 45 1698 

FRARX RUDFORD 067 78 4391 

CBS JERIIKSOB 069 25 2263 

JOHE VALLACB 043 CO 0312 



BRERTOR PRIOR 069.61,7766 



COLIR RORTH 07 824 2128 

JACK FRICRER 07 262 68-09 

ABDRSV SIRTSOR 07 266 5206 

RICK RURPHY 07 271 1777 

BARRY CLARKE 07 204 2806 

BOB DEVRIES 07 372 7816 

HARK KIGHHLL 07 269 3846 

PETER RAY 07 203 6723 

ALLAI ALLSOP 07 349 1831 

GLER EVARS 079 46 1364 

ALAR HERHAH 071 27 1373 

TERRY COTTOH CO 077 66 2320 

ROH SIHPKII 071 71 5301 

JEFF LAPSE! 070 54 7127 

KERR ICE TAJSKY 074.62.3226 

CAROL CAIHCART 079 78 3594 

GRAHAR RORPHETT 075 51 0577 

BERT LLOYD 071 6219100 

LESLEY HORVOOD 0/1 22 4969 

LES MALORBT 079511333x762 

JOHR '.--I.:- 071 21 Q636 

JACK RAB 077 43 3466 

FETER AHGEL 071 68 1020 

KEIRAI SIKFSOH 079 26 6162 

DEBBIE DORFIELD 074 65 3177 

LER CERSEXOVSKI 076 35 8264 

JOHR O'CALLACHAR 077 73 2064 




TEACHERS' IRIERESI GROUP 
BRISBANE BOB HOPRE 07 281 8151 



BUSIRESS: 
BR1ZB1Z 



BRIAR BERE-STPBETER 07 349 4696 



OSJ CROUPS: 
RAT10RAL OS9 USERS' GROUP 

GPABKE RICHOLS 03 451 2^54 
■SV 
SYDREY 
BARKSTOVH CARL ETER1 

CARLIRGFORD ROSKO FCKAT 

GLADESVILLE KARK ROTHVELL 

SYDNEY EAST JACKY COCKIROS 

COOKA FRED BISSBLIRG 

OLD 

BRISBARB 



02 646 3619 
02 624 3353 
02 t 817 4627 
02.344.9111 
064 52 3263 



JACK FPICKER 07 262 8869 



VIC 

LATBOBE VLY 
V* 

KALGOORLIE 

RC-10 COHTACTS: 
LISRORE 
SYDIEY 
VARBRAR800L 

TARDY 1O00 / KS 
■SVr 
GLAPESVILLB 
SYDIBY VE£T 
VYOIG 
QLD: 
BRISBANE 
BOPTH 
SOflTH 
GOLD COAST 
SA 

PORT LIRCOLR 
VIC: 
KELBOURRB 

FORTH: 

SYDREY 

ROBOTICS; 
GOLD COAST 
SYDREY 
VAGGA VAGOA 



GEORGE FEARCIS 051 34 5175 
TERRY BURIETT 090,21.5212 



BOB H1LLARD 066 24 3089 

GRAHAR POLLOCK 02 603 5026 

GARY FURR 055 62 7440f 



DOS: 



KARK ROTHVELL 02 817' 4027 
BOQER BUTHBR 047,39,3903 
JOHI VALLACB 043 90 0312 



BRIAI DOUCAI 07 30 2072 

BARRY CAVLEY 07 390 7946 

GRAHAM RORPHETT 075 51 0577 

BILL BOARDKAR 086 82 2385 

TORY LLOYD 03 862 4664 

JOHI REDROID 02 05 3751 



GRAHAR RORPHETT 075 51 0577 

GEOFF F1ALA 02 64 3172 

CES JEIKIISOI 069 25 2263 



CHRIST 1*R USERS 1 GROUP; 

COLLIE RAYKDHD L. ISAAC 097 34 157B 



SA: 




ADELAIDE 


JOHI HAII5S 00 276 3560 


RORTH 


JTEVBH EISEIBRRQ 08 250 6214 


RURFHETTVALB 


IEI BltiHlPCS 00 304 4503 


PORT ROARLUICA ROB DALZBLL 08 366 1647 


SEACOHB2 HTS 


OLEIR DAVIS 06 2»6 7477 


PORT LIICDLR 


BILL BOARDKAR 086 82 2385 


PORT PI RIB 


VIC KIAUERHASE 006 32 1230 


WALLA 


KALCOLR PATRICE 086 45 7637 


TAS: 




DBVOIPOPT 


JEFF BEST 004 24 6759 


HOBART 


BOB DELBOURGO 002 25 3696 


E 1 RGSlOR 


V1K D8 PU1T 002 20 4950 


LAUICESTGf 


BILL BOVBR 003 44 1504 


SMITRTOR 


HARRY CHRISAFIS 004-32-1590 


VYRTARD 


ARDREV VTLLIB 004 35 1639 


VLC: 




HBLBOVRKBi 




RELBOURRE CCC JOT VALLACB 03 277 fltflg 


DARDFROHC 


DAVJD HORROCKS 03 707 8870 


DORCASTBR 


JOSTIR LIPTOI 03 857 5149 


FRARKST3R 


BOB HiYTER 03.783.9748 


RARRE VARRBI 


LEIGH BAKES 03 704 6680 


ITH BASrEKI 


PRTFR WOOD M 435 2010 


HELTOR 


KARIO GERADA 03 743 1323 


R1RGVOOD 


IVOR DAVIES 03 750 4496 


SUHBURY 


JACK SRIT 03.744.1355 


SUKSHIRS 


IAR BUTTRISS 03 314 3240 


UPR P'T*BB GLY RORY DOYLB 03 758 5671 


BA1RRSDALS 


COLIR LEHKARR 051 5? 1545 


BAL1A8AI 


MARK BEVSLAIDBR 053 32 6733 


CHURCHILL 


GEOFF SFOVART 051 22 1389 


&AYLESFORD 


DARNY HEDTI 054 24 6329 


GEELOiC 


DAVID COLLER 052 43 2126 


KAFFRA 


KAX HUCKERBY 051 45 4315 


ROB 


JOSEPH MBSTBB 051 27 7017 


HORRliCTOI 


MICHAEL MORCC 03 769 7997 


KORVELL 


GEORGE FRARCIS 051 34 5175 


SALE 


BRYAH KcHUGH 051 44 4792 


SHEPPAPTOI 


ROSS FARRAR 056 25 1007 


SMYTHBSDALB 


TORT PAT1ERSOI 053 42 6815 


SVA8 HILL 


BARRIE GERHARD 050.32.2838 


TOICALA 


TORY WILIS 056 59 2251 


TRARALGOR 


LEIGH DAVES 051 74 4532 


VORTHAGGI 


LOIS O'KEAKA 050 72 1593 


YARRAVOSGA 
VA: 


KBI SPORG 057 44 I4 86 


PERTH 


■AIR HACLEOD 09 446 2136 


GIRRAVHBER 


HARK VILLBKSSR 09 342 7639 


KALGOORLIB 


TERRY BURRBTT 090.21.5212 



CARADA - CoCp: 
Ontario Richard Hobsoo 418 293 2346 

Toronto Frnoi LlcbUnbtrj; 416 845 2B89 



300 BAUD BULLET IR BOARDS 
SYDREY: 

IRFOCERTBB 
TARDf ACCESS 
THE COCOCORIBCTIOI 
HUB 



VIDEOTBI SYSTBKS 



VIATEL 
ROUSETEX 
VTI 4000 



02 344 9511 

02 625 0071 

02 618 359L 

002 49 4405 



01935 
059 42 5526 
03 741 3295 



IAIDT UFO 01 VIATEL 

OOLDLIBK VIATEL I642R 

BLAXLARD COKPUTBR SERVICES VIATEL 1042631 

PARIS RADIO VIATEL 1642601 

POVER CODE VIATEL 164265R 

YARBY VIATEL t64261* 

SORF TARDY U5BRS 01 VIATEL 

ALLAI BBALE 726353300 

FRED B1SSELIRG 046232630 

JACK FRICKEH 726258690 

JOHI GR1GSBY 045672O30 

STUART HALL 939765790 

BOB KERRY 665122050 

JBFP LARSER 709471270 

UIR KACLEOD 944021360 

CHRIS RAGLE 089523360 

RICHARD PARKHURST 260717870 

ROSS PRATT 648230650 

RICCAT SCHHAHL 290151500 

ARTHUR SLADB 262389400 

DARCY 0' TOOLS 755105770 

ROR VRIGHT 352924510 
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D I Rectory 



Insertions In this Directory cost $160.00 
for six months or $300.00 for twelve months 
per frame. Changes to Insertions Incur a 
further charge. 

If you sell Soft or Hardware for Tandy 
computers, you need to be listed In this quick 
reference guide. 

Remember! Tandy owners READ this 
magazine! 



N.S.Wj 



Central Coast 

Compote Wizardry 
P.O. Box 979, 
Goaford NSW 2250 



* Education*' Software 

* Communicating Softer a 

Hart war* 

* Agantn tor Computer Hut 

* Agatita for Speech 

Syttamw 

* Prompt, Courteous 

Serrfce 

* Phone or Writ* tor 

Catalog o* 

aanhcard K Vlaa Caid Wa4coma 

043-24-7293 



N.S.W. Llsmore. 

Decno E lac Ironic Servtoee 
12 Carrlngton St., 
Llsmore. N.S.W. 2460 
<Tandy Dealer 9225) 



B«St range of Computers 

and Computing Equipment 

In Summerland. 

Whether you live on the 

North Coast, or ore just on 

holidays, you can't afford 

not to call and see us! 



066-32 1896 



■Victoria 

Blackburn 



DAL Wilson t Co Pty. Ltd 

6 Stafford St., 
Blackburn, Vic. 31 30 



Scrv*ns Melbounoe'e Eaet 
Software — Hundreds of 

title* 

Hardware — Drives, 

Prinwi* 
Service — Upejradea 



03*898-4521 



■N.S.W. Gunnedah 



Eathef a Sports * 

Electronics 

166 Conadllly St.. 

Gunnedah N.S.W. 2380 
(Tandy Dealer 9223) 



Agricultural 

Computing Specialists 

For Friendly Scrvfce to 

the man on the land, or 

for fast accurate help to 

the town dwellers 

067 42-2230 



South Australian 
Morphetfvale 

NATIONAL 

ImtTIME ADVERTISED 

THE PROFIT POTENTIAL 

IN YOUR 

PERSONAL COMPUTER 

$25,000 PER MONTH 

IS POSSIBLE 

For FREE Brochure 

Ph(08> 382.7281 

or send SSAE to 

Mai. P. Bailey, 

6 Bower Crt. 

(Dept.7) Morphettvale 

South Australia 5162 



Tasmania 
Hobart 

The Delbourooa 
15 Wlliowdene Ave. f 
Sandy Bay 
Hobart. Tas. 7005 

■k Lxpmndtrd 0«*7c — « 

barttar fee* tor four CoCq 

* The Proporf loner — a 
utim r Co prork/a aqual 

gapa between proportional 

fetter* on Tandy'a DMP200 

printar 

* Mefnemaffce/ function 

databama 



002-25-3896 



GAMES 

BESTOFCoCoOZ#8 

16K Games 



ALIEN 

QWERL 

SHOOTOUT 

SHUTTLE 

FROG 

FROG RACE 



KIMMAT 

GRANDPRI 

WATERWAR 

CATERPIL 

DETECT 

BREAKOUT 



BESTOFCoCoOZ#9 



32K Games 



TRIOMINO 

MATCHEM 

GO 

NARZOD 

CHOMPER 

POPBALL 

PRICE 



LUDO 

SABRE 

MOVEABOUT 

LABYRINT 

JIGSAW 

TANK 



Taps 
DIsK 



$10.00 
SI 6.00 



GOLDS0FT. P.O. BOX 1742, 
SOUTHPORT. 4215. 




■QueenslandsvaiM 
Brisbane 

Qumnaland Colour 

Softw*f* Supplt*. 
P.O. Box 306 
Claytleld Old 401 1 

4 M*«'28K upgrade* 

■b SO column cmrda 

it rciMi! 

A Omrnf 

« Timlnul progrmm$ 

07-262*8869 

A/H 



CANADA. 



Computer Aaaembly 

Manuale 

era bluc seco tor 

iaMtm auaoees 

' pans list 

* placement diagrams 

" instructions 

'or assembling over 7 5 

bare IBM-compat. cards. 

Now include! guides lor 

640 K. Turbo & AT MthBds! 

S17.95US 

Money Order. VISA/MC 

NuScope Associates. 1C 

P.O. Bon 742. Sin B 

Willow ddle. Ontario 



> T3 30 tfi 

£ SB. ^ 

d s* ~ ri 



GDLDtinh 

com. 

STflTlDn 

on 




B/iAfa 

AUSTHAIIAS NAT-ONAL VIDEOTEX SERVICE 



BULLETIN BOARDS 
TANDY COMPUTERS 
ATARI COMPUTERS 
COMMODORE COMPUTERS 
FAST FLORIST 
REVIEWS 

HARDWARE & SOFTWARE 
SHOP 



YES WE EVEN TALK BACK !! 



